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ABSTRACT 



In the scheme of an integrated decision support system, 
model management holds a position comparable with data 
management. Unfortunately, the development and formalizing 
of model management techniques historically have lagged far 
behind data management concepts, although the increased 
interest in spreadsheets has rekindled an interest in models 
as productivity enhancing tools. Model management systems 
offer one way of integrating models into the overall struc- 
ture of an organizational information resource library. This 
thesis proposes the design and implementation of a visual 
interface to one such model management system, based on A. M. 
Geoffrion's structured modeling paradigm. Our goal is to 
provide the user with a natural, easy-to-use interface that 
is, at the same time, powerful enough to extract the full 
potential from a model management system. 
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INTRODUCTION 



I . 



The wheel is an extension of the foot, the book is 
an extension of the eye, clothing, an extension of 
the skin, electric circuitry, an extension of the 
central nervous system. 

Marshall McLuhan and Quentin Fiore 
The Medium is the Message (1967) 

We could easily continue that the computer interface is 
an extension of the user. To the user, the interface is the 
program. It is the single direct link that connects him with 
his application. Regardless of how elaborate the algorithms, 
how elegant the coding, or how efficient the execution, a 
poorly designed interface severely detracts from a' program's 
usefulness. At best, the program will be used reluctantly; 
at worst, it will not be used at all. How the user converses 
and interacts with the program becomes a prime measure of its 
effectiveness . 

The quality of a program's interface must be a consid- 
eration from the beginning to the end of the design process. 
If a designer fails to take people into account, then his 
product — be it hardware or software — may well be difficult or 
impossible to use. As Simpson [Ref. 1] says, human factors^ 



1 Human factors is a small but growing discipline which 
seeks to provide a method for taking into account human 
strengths and limitations during the design of computer 
hardware and software [Ref. 1, p. 108]. Historically, human 
factors has dealt with the physical relationships between man 
and machine. The development of software pushes even 
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matter because it is people who must operate the machines 
[and software] that we produce. Man and machine must work 
together interactively. The "system" is a combination of 

both . 

Of course, the significance of the user interface varies 
from application to application. Obviously, the development 
of any interface represents an expenditure of valuable 
resources. How much of the available resources one can 
afford to devote to the interface becomes a legitimate 
question. Too little and the interface is inadequate. Too 
much and it becomes an unnecessary aggrandizement. The 
designer must strive to match the resources expended in 
developing the interface with the significance of that 
interface to the application. Simpson [Ref. 1] offers four 
factors that can provide a measure of the importance of 
man/machine interaction to software (and concomitantly, 
interface) design: 

(1) the number of people operating the program, 

(2) the diversity of the operators' backgrounds, 

(3) the complexity of the program, and 

(4) the consequences of operator error. 

As these factors increase, so should the resources 
devoted to the development of the user interface. As 

f urther--moving into the realm of cognition and touching on 
exactly how mankind thinks . Because of this cognitive 
distinction, some researchers prefer to separate the theories 
of human/computer interaction from the more traditional 
concepts of human factors . 
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critical as the interface may be to general software design, 
an evaluation of the above factors clearly shows that the 
development of an appropriate user interface assumes added 
significance in the creation of a highly interactive model 
management system. 

History shows that model-based assistance is used all too 
infrequently by managers and policy-makers. Often this is 
the case because available modeling systems are incompre- 
hensible to nonspecialists in management science/operations 
research (MS/OR) [Ref. 2, p.l]. Managers may feel overly 
dependent on these MS/OR practitioners who more fully 
understand the underlying concepts of modeling systems. They 
see this as an erosion of their power. Managers avoid this 
dependency by avoiding the very modeling systems that could 
enhance their decision-making capabilities. Modern user 
interfaces that make the use of modeling systems more 
intuitive and easier to learn can lead to improved acceptance 
of the systems themselves. In fact, they may even be a 
prerequisite for it [Ref. 3, pp. 548-550] . 

By providing an interface to the modeling environment 
that is intuitive to the user, he will more likely accept 
modeling as a powerful, working tool rather than shying away 
from it as "something better left to those technical types." 
This thesis proposes one such design. Our goal is to provide 
the user with a natural, easy-to-use interface that is, at 
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the same time, powerful enough to extract the full potential 
from a model management system. 

Sections II and III provide a brief overview of both 
model management and structured modeling, concentrating on 
those aspects which bear most directly on the user interface. 
Readers are encouraged to review the specific articles cited 
in these sections for a more complete treatment of these 
subjects. Section IV introduces a broad specification of the 
visual interface concept, touching on various aspects of 
interface design and interactive computer graphics. Section 
V provides specifications and design goals of a particular 
interface, called INTUITION. Section VI describes the 
prototyping of INTUITION in an IBM PC/MSDOS environment and 
discusses problems encountered during the design and imple- 
mentation phases. Finally, Section VII concludes with 
recommendations for future enhancements to this particular 
program, as well as proposals for additional research. 
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MODEL MANAGEMENT 



II . 



Data has long been recognized as a corporate resource to 
be managed and controlled. Models, too, provide managers 
with a resource--a decision aid — which, if properly used, can 
produce a competitive advantage. On the other hand, if used 
improperly, these same models can lead to disaster. 

In the scheme of an integrated decision support system, 
model management holds a position comparable with data 
management. Unfortunately, while considerable effort, and 
consequently considerable progress, has been made in devel- 
oping and formalizing data management concepts, model 
management techniques have lagged far behind. [Ref. 2, p.l] 

As a result, many organizations have been reluctant in 
the past to totally embrace model management as a viable 
information resource. This reluctance has recently diminished 
with the sky-rocketing popularity of simple modeling devices 
such as LOTUS 123. These spreadsheets have clearly brought 
home the unique potential of modeling as an aid to decision- 
making. But this very popularity, while raising the concept 
of modeling to the forefront, has come as a two-edged sword. 
That increased productivity may be gained from effective 
modeling is a generally accepted premise. And, since 
productivity determines the relative well-being of an 
organization, modeling as a tool that increases productivity 
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is welcomed. On the other hand, the informal, often 
unstructured, and sometimes unintelligible approach to 
modeling inherent in the current state of the art, as often 
as not, overwhelms management. The entire situation is 
compounded by the management and control problems resulting 
from the proliferation of spreadsheet models. Model manage- 
ment systems offer some hope of overcoming these obstacles. 
[Ref. 4] 

What is a model management system? As defined by Dolk 

and Konsynski in the previous reference, 

The MMS [model management system] is to models what the 
DBMS [data base management system] is to data, i.e., a 
software system which provides for the creation, manipu- 
lation, and access of models. 

The key here is "models." Management science and operations 
research (MS/OR) models are particularly relevant in imposing 
structure on the decision-making process. Gorry and Krumland 
[Ref. 5, p. 206] refer to the English Platonist Weldon who 
suggested that there are troubles which we do not quite know 
how to handle/ there are puzzles whose clear conditions and 
unique solutions are marvelously elegant; and then there are 
problems which we invent by finding an appropriate puzzle 
form to impose upon a trouble. To Gorry and Krumland, MS/OR 
models are the puzzles imposed on managerial decision-making 
to solve problems, i.e., to make decisions. The authors 
continue that the problem (s) in question often fail to 
dictate the use of any particular model. We may find the 
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same problem solved in different situations through the use 
of decidedly different modeling techniques. 

In this respect, an MMS allows a decision-maker to access 
a collection of several different models or modeling tech- 
niques, but to do so in a consistent and standard way. 
Moreover, these models, in the form of an MMS, can be 
incorporated more readily into an integrated information 
resource management (IRM) environment, where they can operate 
in concert with a database management system. 

Figure 1 depicts one possible MMS, organized along the 
lines of a typical DBMS. Readers are referred to Dolk and 
Konsynski [Ref. 4] for a more complete discussion of model 
management, in general, and Figure 1, in particular. A brief 
synopsis follows. Three groups of people are involved in the 
creation, management, and use of an MMS. The raison d'etre 
of an MMS is to allow a decision-maker ultimately to solve 
problems, typically via a model manipulation language of some 
sort. Just as a DBMS needs to be managed to be effective, an 
MMS requires equivalent management. This is vested in the 
model administrator/model bank administrator. In fact. 
Figure 1 envisions the MA/MBA operating within an information 
resource management (IRM) environment where model management 
and data management coexist as sibling functions. These two 
functions then share a dictionary/ directory system that is 
more broadly (and appropriately) called an information 
resource encyclopedia (IRE) to denote a wider array of 
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Figure 1: The Components of an MMS 

from Dolk and Konsynski [Ref. 1, p.44] 



8 



knowledge about a sub ject--knowledge above and beyond simple 
definitions. This IRE holds the semantics and structural 
declarations for both data and models. 

Central to the MMS is the model control system (MCS) 
which manages the physical-level access, storage, and 

retrieval protocols. The solution library is unique to a MMS 
and consists of the algorithms necessary for problem solving. 

Thus far, we have neglected the left branch of Figure 1, 

the model-builder. Obviously, the solution library is of no 

use unless it has something on which and with which "to 

operate." To this end, the model-builder constructs the 

model banks and databases which hold the necessary equations 

and data for the solver to use. He does this through a model 

description language (MDL) . It is this concept of an MDL 

that is of immediate concern to this thesis. How does the 

idea, the actual notion, of a model move from man to machine? 

Dolk and Konsynski [Ref. 4, p. 43] state emphatically. 

Critical to the success of an MMS is a model description 
language (MDL) which allows users to specify models in a 
uniform fashion independent of any particular physical 
implementat ion . . . . The key advantage of an MDL is that it 
allows the user to concentrate on model description without 
worrying about how the model gets solved. 

In this same article, the authors suggest, as a logical 
choice, an algebraic language which facilitates the 
description of a wide range of mathematical models. This 
thesis pursues an alternative route — the use of a graphics- 
based, rather than text-oriented, interface. This requires 
the adoption of a modeling approach that is: 
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(1) inherently visual in nature, yet can be adequately 
described in a text-oriented database, and 

(2) of sufficient generality to be applicable across 
diverse disciplines and varied modeling paradigms. 

Structured modeling, developed by A. M. Geoffrion, provides 

exactly this modeling framework. 
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III. STRUCTURED MODELING 



Structured model theory, as described by Geoffrion [Ref. 

3, pp. 547-588], provides a structured framework, on par with 

relational database theory, within which model management 

requirements can be defined and implemented. 

Structured modeling aims to provide the foundation for a 
new generation of modeling systems .... It also aims to 
influence how model-based work is carried out using more 
conventional modeling systems [Ref. 3, p.550]. 

Whereas previous efforts at developing model management 
systems have tended to be application specific, Geoffrion' s 
approach is sufficiently general to cross application 
boundaries. Development of a formalized system around such a 
paradigm should go a long way in ameliorating the fears and 
trepidations of management and in advancing the acceptance of 
model management techniques as standard operating procedures. 

Central to the concept of structured modeling is a system 
of elemental definitions which, in the aggregate, comprise a 
model. These elements consist of five separate types-- 
primitive entities, compound entities, attributes, functions, 
and test elements. 

(1) A primitive entity element is mathematically unde- 
fined. It simply asserts the existence of some thing 
or concept (e.g., a plant or customer in a transpor- 
tation system) . Every model must contain at least one 
primitive entity. 
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(2) A compound entity element represents things or con- 
cepts which are defined in terms of previously defined 
primitive entities and/or other compound entities 
(e.g., a link in a transportation system consists of a 
combination of a certain plant and a certain cus- 
tomer) . 

(3) An attribute element represents properties of things 
or concepts and is characterized by having a constant, 
though not necessarily numeric, value within a 
specified range (e.g., the supply capacity of a plant 
or the demand of a customer in a transportation 
system) . A variant of the attribute element, called 
a variable attribute element, differs by having a non- 
constant value (e.g., the transportation flow between 
links within a transportation system) . 

(4) A function element is very similar to the mathematical 
concept of a function in that it has a unique value 
within a specified range that is derived by applying 
a specific rule to the values of other "called" 
elements (e.g., the total cost associated with all 
flows in a transportation system) . 

(5) A test element is simply a special case of the 
function element. Test elements must evaluate to 
"TRUE" or "FALSE" and thus provide the capability to 
perform logical tests on other referenced elements 
(e.g., is the total flow leaving a plant less than or 
equal to its supply capacity) . 

A structured model exists on three levels, each of which 
provides a varying degree of specificity about the model. 
The first two levels are organized as acyclic, attributed 
graphs of distinct elements; the third, hierarchically as a 
rooted tree. 

The base level is the elemental structure . This level 
comprises "...a nonempty, finite, closed, acyclic collection 
of elements" [Ref. 6, p. 2-4] which captures the myriad 
detail associated with a specific instance of the model. For 
example, in a particular transportation model, there exist 



12 



plants in Dallas and Chicago. These plants service customers 
in Pittsburgh, Atlanta, and Cleveland. Associated with these 
plants and customers are specific links, flows, and costs 
that are individually defined in the elemental structure. 

A generic structure is defined on the elemental structure 
by what Geoffrion calls a natural familial grouping of ele- 
ments. In simple terms, like elements can be aggregated into 
a single, homogeneous grouping of elements called a genus. 
Each genus must fulfill the requirement of "generic simi- 
larity, " that is, each element within the genus must refer to 
and be referenced by elements from exactly the same genera. 
From the previous example, individual plants in Dallas and 
Chicago can be partitioned into the genus, PLANT, while the 
customers in Pittsburgh, Atlanta, and Cleveland would be 
partitioned into a single genus, CUSTOMER. Likewise, the 
various flows, links, and costs would be partitioned into 
genera, one for each type. 

Both the elemental and generic structures are depicted as 
directed, acyclic graphs called element graphs and genus 

graphs, respectively. In each case, nodes represent elements 

2 

(or genera) and arcs represent "calls" of one node by 
another. Perhaps somewhat counter-intuitively, the head node 
of each arc is said to "call" the respective tail node. 

2 A "call" is a definitional reference of one element or 
genus to another. Calls form calling sequences. These 
calling sequences are "the cross-references among the various 
elements of a model [that] are the central focus of struc- 
tured modeling [Ref. 6, p. 2-3]. 
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Figures 2 and 3 provide the element and genus graphs for a 
typical Hitchcock-Koopmans transportation model . 

The third, and highest level, is the modular structure . 
This is a rooted tree whose terminal nodes have a one to one 
correlation with the genera of the corresponding generic 
structure. Non-terminal nodes are defined as modules, with 
the simplest rooted tree consisting of a single such module-- 
the root module, representing the entire structured model. 

Every possible module structure is not allowed. Valid 
structures must satisfy the requirement of monotone ordering 
(i.e., must contain no forward referencing). In other words, 
it must be possible to linearly order all genera in the model 
in such a manner that no element in a genus ever calls an 
element in a genus further down the listing. In the vernac- 
ular of structure modeling, such a listing is called a 
modular outline. Valid modular structures are typically 
depicted as modular trees. Figure 4 shows one possible 
modular tree and its associated modular outline for the same 
transportation scenario cited above. 

Both generic and modular structures, in the form of genus 
graphs and modular trees, lend themselves to the graphical 
display of information. However, Geoffrion has also devel- 
oped an extensive textual notation to fully describe the 
generic and modular structures of a model. Called a model 
schema, it consists of a paragraph for each genus and module 
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in the structure. Figure 5 shows the model schema corre- 
sponding to the generic and modular structures given in 
Figures 3 and 4 . Briefly, the syntactic rules for a model 
schema are: 

(1) Paragraphs begin with a unique module or genus name. 
Names are capitalized. Module names must begin with 
an ampersand. Genus names must begin with a letter. 
Names of genera containing multiple elements may be 
followed by a specific lower case "index" letter, 
uniquely associated with the genus that introduces it. 

(2) Each paragraph contains an informal interpretation 
part which provides easily readable documentation. Its 
syntax is unrestricted; however, Geoffrion recom 
mends that it contain an underlined, capitalized and 
unique key phase which is also capitalized on subse 
quent use. Unless printed in a different font (e.g., 
italics), the interpretation should be introduced by 
some unique character to separate it from the formal 
part of the paragraph definition. Module paragraphs 
consist only of a module name and interpretation part. 
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SPROO There are some PRODUCTION OflTfl . 

PLRHTi /pe/ There is a list of PLANTS . 

SUmfiKTD /a/ <PLRKT> : R+ Every PLANT has a 
SUFPLV CRPRCITV measured in tons. 

&SHLES There are some CUSTOMER ORTfl . 

CUSTj /pe/ There is a list of CUSTOMERS . 
OEMCOiSTp /a/ CUST> : ft*- Every CUSTOMER has 
a nonnegative DEMRNO measured in tons. 

&OIST There are some DISTRIBUTION DRTR . 

U^CPLRKTiXlJSTp /ce/ Select <PLRNT>k{C1KT> 
covering <PLRNT>, <QJST> There are transportation 

i ik ii/c * m nwrrc +_ n irmurnc 

l m\i if urn ^uiue ruim^ tu *uine itk> i uncno , 

FLUUKLIfiCip /va/ <UHK> : R+ There can be a 
nonnegative transportation FLQUJ Cin tons> over 
each LINK. 

COSTailKip /a/ <U#& Every LINK has a COST 
RATE for use in dollars/ ton. 



TOTRL.COSTCaKTJlOUD /f/ 1 ; SUrtjCCOSTij * 
FLOUJip There is a TQTRL COST associated with 
all FLOUJS. 

i^if^tLUiui.^un^ /!/ tnitm ; Mjnpj-LUtuiiJ <= 
SUPi Is the total FLOUJ leaving a PLRNT less than 
or equal to its SUPPLV CRPRCITY? This is called 
the SUPPLV TEST. 



T dOEMCFLQUJ. j XEMp /t/ <OJST> ; SJMKRflUip = OEMj 
Is the total FLOUJ arriving at a CUSTOMER exactly 
equal to its DEhtfMJ? This is called the DEMAND 
TEST. 



Figure 5: Schema Paragraphs for Transportation Model 
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(3) The formal part of each genus paragraph contains the 

essential characteristics of the genus: 

(a) a type indicator (/pe/,/ce/,/a/,/va/,/f/, or 
/ t / ) specifies the element type; 

(b) for all non-/pe/ paragraphs, a generic calling 
sequence (denoted by parentheses) specifies all 
elements which participate in the definition of a 
typical element; 

(c) an index set statement (denoted by braces) 
specifies the element population of the genus 
(omission implies every possible element exists) ; 

(d) for attribute genus paragraphs, a range state- 
ment (denoted by a colon) defines the allowable 
values for the elements of the genus; and 

(e) for function and test elements, a generic rule 
(denoted by a semi-colon) specifies how element 
values are calculated. 

Geoffrion [Ref. 3, p. 550] predicts the potential for 

wide adoption of structured modeling: 

This kind of definitional system turns out to be widely 
applicable within model-oriented fields such as MS/OR/DSS 
(for finance, logistics, marketing, production, and other 
application areas), information systems, economics, and 
engineering .... structured modeling lays the foundation for 
a unified theory of model aggregation. 

Geoffrion further asserts that such a definitional system is 

applicable to fields of artificial intelligence, database 

management, programming language design, and software 

engineering. It is exactly this generality and capacity for 

cross-fertilization that makes structured modeling so 

attractive as the underpinnings of a model management system. 
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IV. THE VISUAL INTERFACE 



Geoffrion [P.ef. 6, p. 3-8] describes the idealized inter- 
face for a full-scale model management system as providing, 

...full-screen, fully interactive, mostly command-driven 
(but with border or hideable menus) access to a file 
library, which can contain materials pertaining to several 
models or model schemata. 

In view of this description, the question arises, "Why a 
graphics interface?" This can be answered, perhaps somewhat 
simplistically , yet nonetheless accurately, by the cliche — a 
picture is worth a thousand words . The Apple Macintosh, Sun 
and Apollo workstations, and the forthcoming IBM System 2 
series "Presentation Manager" are adequate proof of the 
acceptance of visual interfaces as productive enhancements to 
computer technology. 

Interactive computer graphics are particularly well 
suited as a descriptive device for a model management system. 
As Scott [Ref. 7, p. 77] remarks, "Interactive computer 
graphics is based on the concept of working with a model 
described by information stored in the computer." In 
concept, the interface for a model management system is not 
very different from the typical "paint" program or computer- 
aided design (CAD) program. 
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Computer graphics is equally well suited to the psycho- 
logical and intellectual requirements of a user interface. 
Bennett [Ref. 8, p. 54], in amplifying Foley [Ref. 9] states, 

The payoff [from graphics applications] is high because of 
the bandwidth [capability for rapid interaction with high- 
resolution, directly relevant pictures] of the communi- 
cations channel. 

Bennett continues, 

Graphics offer potential for decision makers who can 
benefit from interaction with computer-generated represen- 
tations but who are repelled by computer-oriented detail. 

Of course, as stated in the introduction, if any inter- 
face (graphics or otherwise) is to be effective, the needs 
and capabilities of the user must be considered. Simpson 
[Ref. 1] recommends six principles for computer interface 
design : 

(1) Provide feedback . Don't keep users in the dark. Every 
user action, whether correct or incorrect, should 
elicit some response from the program. Ensure that 
feedback is immediate, obvious and placed on the 
screen where the user anticipates it. 

(2) Be consistent . While human beings can tolerate 
ambiguity, it only serves to reduce their effective- 
ness. Notwithstanding Ralph Waldo Emerson's assertion 
that consistency is the "hobgoblin of little minds," 
consistency within software is essential. Establish a 
set of rules and follow them compulsively. Ensure 
that similar functions are performed in a like manner 
throughout the program. This allows the user to learn 
one part of the program and to apply this knowledge to 
other portions, making the program much easier to 
learn and use. 

(3) Minimize human memory demands . Simply put, computers 

have better memories than people. While people do not 
always remember things exactly, computers do. Reduce 
the user's need to memorize commands and mnemonics 
through the use of displayed menus or other screen 
prompts. Rely on the machine's memory, not the 

user's. 
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(4) Keep the program simple . Simplicity must be a 

conscious design goal. Continuously edit and pare 

down the program. Provide those functions that are 
necessary and useful; however, don't encumber the user 
with unnecessary functions simply because they are 
possible . 

(5) Match the program to the operator's skill level . 

Evaluate the skill level (s) of expected users and 
design the program to match these skills. For larger, 
more complex programs, this may require a complete 
task analysis to determine what mission a system must 
perform, what functions are involved, and what tasks 
are required to perform these functions. Alter- 
natively, for simpler programs, answers to the 

following questions may suffice: 

(a) What will operators be expected to do? 

(b) What decisions must they make? 

(c) What must they know to make the decisions? 

(d) What skill levels will be required? 

(6) Sustain operator orientation . Don't allow the user to 
become "lost" in the program with no way out. Provide 
signposts to tell him where he is and to guide him 
back from whence he came. Provide a consistent way to 
backtrack to a main menu or to an opening screen. 

In summary, Simpson (1982, p.116) reduces these six prin- 
ciples to a single idea, 

...know the needs of your system users. Recognize that 
they need feedback to avoid confusion, consistency to ease 
the learning process, minimal strain on memory capacity, 
simplicity rather than complexity, demands gauged to their 
skill levels, and constant, clear orientation. 

Simpson addresses two additional areas that have special 

significance to interface design and are thus worthy of 

mention. These are data entry and screen design. Briefly, 

he offers these recommendations: 

( 1 ) Data Entry 

(a) if data are to be entered from a standardized 
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form, then the screen should look similar to the 
form in use; 

(b) the program should provide a prompt for every 
data input, including range limits, default 
values and formats, where possible; 

(c) keep input data length to the absolute minimum 
consistent with the data being entered; 

(d) provide feedback by displaying data on the 
screen as it is entered ; 

(e) check all data entries for error; 

(f) when an error is detected, alert the user, 
identify the error, and tell the user how to 
recover ; 

(g) place all error messages consistently from 
screen to screen, preferably near the erroneous 
entry; 

(h) allow the user to edit data during the initial 
data entry, after a group of data have been 
entered, and subsequent to the data being 
stored; and 

(i) provide "fail-safe" entry mechanisms for data 
entry that can cause catastrophic failures, e.g. 
double prompt the user prior to deleting a file. 

( 2 ) Screen Design 

(a) access screens by paging, not scrolling; 

(b) title all screen displays, preferably centered at 
the top of the screen; 

(c) center screen displays, where possible; 

(d) allocate specific screen areas for each type or 
grouping of information (e.g., prompt line, error 
messages, mode indicators, etc.) and use these 
areas consistently; 

(e) distinctly separate each area of the screen with 
mechanisms such as blank rows or columns, lines, 
or color coding; 

(f) keep screens simple and uncluttered through the 
use of "white space;" 
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(g) follow prevailing conventions — present infor- 
mation from left to right, top to bottom, left 
justify text and right justify numbers aligning 
them on the decimal point; 

(h) display information in a recognizable order--for 
example, alphabetically, numerically, or chrono- 
logically; and 

(i) break up long strings of data into independently 

recognizable units--for example, showing a 
telephone number as (408) 555-1234 is much 

clearer than 4085551234. 
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V. SPECIFICATION AND SYSTEM DESIGN 



Our purpose is to design and implement a visual interface 
(using established computer interface design principles) for 
a model management system based on Geoffrion's structured 
modeling approach. This interface will allow the user: 

(1) to interactively enter a graphical representation of a 
structured model and, 

(2) to produce a relational database representation of 
this model, using the information from the graphic 
view augmented with other information entered by the 
user . 

We will follow a structured approach to software design. 
Software engineering methodologies provide the designer with 
a systematic means of managing and controlling the over- 
whelming number of tasks involved in software development. 
To date, no single methodology has caught and held designers' 
fancies, although within the Federal Government, the classic 
life cycle or "waterfall" model generally is dictated. 
However, in many sectors, both prototyping and fourth gene- 
ration techniques ( 4GT) are gaining favor. 

Prototyping is especially relevant in this instance. In 
fact, the design of a visual interface fulfills all three of 
the criteria given by Pressman [Ref. 10, pp. 148-149], 



3 this term encompasses a wide array of tools that 
allow a developer to specify software characteristics at a 
high level and then have the tool automatically generate 
source code based on these specifications. (Ref. 10, p. 24) 
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...there are circumstances that require the construction of 
a prototype at the beginning of analysis since the model is 
the only means through which requirements can be effec- 
tively derived. ...In general any application that creates 
dynamic visual displays, interacts heavily with a human 
user, or demands algorithms or combinatorial processing 
that must be developed in an evolutionary fashion is a 
candidate for prototyping. 

Our prototype interface will be designed and implemented 
in bit-mapped graphics, using a structured programming lan- 
guage, a standardized graphics library, and a relational 
database management system. The prototype will support 
monochrome and color (CGA and EGA or equivalent) systems and 
will self-conf igure to the hardware used. Graphics objects 
will be differentiated by shape and color. 

The screen will consist of five fixed windows--a status 
window, an icon window, a command button window (augmented by 
pop-up menus) , a dialog window, and the workspace (drawing) 
window. User inputs, error messages, and system prompts 
appear in the dialog window. The user workspace is a free- 
form drawing area whose size is limited only by available 
memory. The user sees a four-way scrollable window on this 
total workspace, into which he interactively enters genus 
graphs and/or modular trees directly in pictorial form. 
Commands and node types will be selected from on-screen 
displays, pop-up menus, or on-screen prompts. The user will 
have the choice of using a mouse, cursor keys, or function 
keys to select options. 

The interface must be simple, intuitive, and unobtrusive. 
It should not distract the user from the task at hand, i.e.. 
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getting his model into the computer. It should support only 
those tasks necessary to accomplish the program's purpose, as 
stated herein. Bells and whistles will be minimized. Just 
because the interface can accomplish a task does not mean 
that it necessarily should. Every function must be justified 
on the basis of increased user productivity. Give the user 
what he needs--nothing more and nothing less. 

The interface must be consistent. Similar functions 
should look the same and work the same throughout the 
program. The interface must prompt the user for all data 
entries and must edit all entries. Input must be accepted in 
a consistent place and manner; output will be displayed like- 
wise . 

The interface must be easy to learn and use. It should 
minimize human memory requirements and the need to reference 
external documentation. It must provide immediate and 
consistent feedback for every user action. Errors must 
elicit meaningful and helpful error messages (i.e., what is 
wrong and how to correct it) . Finally, the interface must 
provide "signposts" throughout to keep the user oriented and 
to provide an easy means of returning to the starting point. 

The program presupposes that the user understands struc- 
tured modeling concepts, but makes no further assumptions 
regarding the user's computer experience. It will be highly 
structured and modularized to ease transportability across 
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systems and to allow future extensions to the program. 
Specifically, it must allow the user to: 

(1) add genus elements (nodes) or modular subtrees to the 
pictograph; 

(2) delete genus elements or modular subtrees from the 
pictograph (including all arcs into and out of the 
deleted nodes); 

(3) rename genus elements or modules on the pictograph; 

(4) change the type of genus elements on the pictograph; 

(5) add "calls" ( directed arcs) between genus elements and 
modules ; 

(6) delete existing "calls" from the pictograph; 

(7) move genus elements, modules, and subtrees to a new 
position on the pictograph and adjust all "calls" and 
spacing accordingly; and 

(8) convert specified portions of a genus graph to a 
modular subtree and automatically redraw the picto- 
graph correctly. 

As the user creates a pictorial representation of the 
model, the program must transform the genus graph and modular 
structure from the pictograph form to an appropriate rela- 
tional database representation. Specifically, the following 
functions will be supported: 

(1) extract the genus name, genus type, and calling 
sequence from the appropriate genus pictograph 
(extract module name and monotone ordering only for 
modules) ; 

(2) create a color-coded input screen (based on the 
structured model paragraph syntax) and allow the user 
to enter the index set statement, range statement, 
generic rule, and informal interpretation for a 
particular genus (or the informal interpretation only 
for a particular module) ; 

(3) allow the user to modify all paragraph fields except 
genus name, module name, genus type, and calling 
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sequence (in order to maintain data integrity, these 
items can only be modified from the pictograph) ; 

(4) display an appropriate modular outline; 

(5) generate a color-coded, scrollable display of the 
entire model schema based on the appropriate genus and 
module paragraphs; and 

(6) transform the complete model schema into an appro- 
priate relational database representation; 

(7) save the pictographs and descriptive paragraphs to 
disk for subsequent reloading and editing. 

The following criteria must be validated when accepting 
data entry from the user: 

( 1 ) Module Paragraph 

(a) Module names must be unique, capitalized and 

prefixed with an "M_" . 

(b) The informal interpretation must be identified by 
a unique font or introductory character. 

(2 ) Genus Paragraph 

(a) Genus names must be unique, capitalized and 
begin with an alphabetic character. 

(b) Type indicators must be one of the following 
mnemonics and must be enclosed in back slashes: 
pe, ce, a, va, f, or t. 

(c) Generic calling sequences apply only to non-/pe/ 
types and must be enclosed in parentheses . 

(d) Element indices must be single, lower-case, 
alphabetic characters and immediately follow the 
elements that they index. 

(e) Index set statements must be enclosed in curly 
braces . 



4 Geoffrion designates modules with an ampersand; 
however, this character has special meaning within the ORACLE 
Database . 
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(f) Range statements apply only to /a/ and /va/ 
types and must be preceded by a colon. 

(g) Generic rules apply only to / f/ and /t/ types and 
must be preceded by a semi-colon. 

(h) The informal interpretation must be identified by 
a unique font or introductory character. 
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VI. DETAILED DESIGN AND IMPLEMENTATION 



The previous section provides preliminary specifications 
for a visual interface. A prototyping methodology will be 
employed to further develop and define these general specifi- 
cations into a system that meets the user's needs. It is a 
legitimate question at this point to ask why prototyping is 
used rather than the more traditional life cycle model for 
software development. 

The classical life cycle model is patterned after the 
conventional engineering cycle. It calls for a sequential 
series of events that progress systematically from system 



engineering 


through 


analysis, design, 


coding, testing. 


and 


maintenance . 


Because the output of 


one step becomes 


the 


input to another. 


this paradigm is 


frequently called 


the 


"waterfall " 


model . 


[Ref. 10, p. 20] 


This process satisfies 



the need for an organized methodology that establishes 
appropriate milestones against which to measure progress and 
at which to obtain approval to continue. Unfortunately, it 
also requires the capability to fully and unambiguously 
define all system specifications during the design process. 
When full specification fails, as it so often does, those 
requirements that are omitted or misunderstood become the 
undetected errors that are so costly to correct in later 
stages . 
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Prototyping offers an alternative approach that is 
particularly valuable in developing functional specifications 
under conditions of uncertainty. Prototyping techniques may 
either be incorporated into traditional life cycle methods 
or, in certain circumstances, may replace the traditional 
model entirely. In either case, the key to prototyping is 
its iterative nature. The classical model presents the user 
with reams of text-based specifications and/or reams of 
diagrammatic representations of those same paper specifi- 
cations for the entire system . The user cannot possibly 
determine if the proposed system meets his needs — especially 
since he very likely doesn't yet know exactly what his 
requirements truly are. A prototype, on the other hand, 
attempts to present the user with a realistic view of the 

eventual system based on what he does currently know about 
his requirements. This view is then iteratively refined, as 
uncertainty is reduced, to produce a software product that 
ultimately reflects the user's true needs. The user is 

provided with a "specification" that he can experience 
directly. [Ref. 11, pp. 178-179] 

This software project lends itself to prototyping on 
several counts . Obviously, the prime purpose of any inter- 
face is to interact with the user. In a model management 

system, the level of interaction is particularly high. 
Prototyping allows this interaction to begin early in the 
development process and to continue throughout design and 
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implementation. In addition, this particular case represents 
one of the first documented efforts at designing a graphics- 
based model management interface. Developing a comprehensive 
set of functional specifications for such a first-time system 
is an unrealistic endeavor. Simply too many uncertainties 
exist. As explained above, prototyping is ideally suited to 
developing specifications under conditions of uncertainty. 
Finally, when working in a graphics environment, it is 
essential that the user (and developer) see the system as it 
exists on the computer screen . The screen size and graphics 
resolution of current computer displays are limiting at best. 
It is all too easy to develop concepts that work well on 
paper--an analog medium--but that do not translate at all to 
the digital screen. Prototyping allows the developer to get 
the visual aspects of the graphics environment in front of 
the user early in the process. 

The prototype that we propose is called INTUITION. The 
initial version (1.0) was developed on an IRIS 2400 dedicated 
graphics workstation. This version was not intended to 
provide any specific functionality^, but was used to validate 
the basic program structure, to develop the initial screen 
layout, and to determine any unique requirements for 

5 It epitomized the "throw away" prototype as a 
mechanism for identifying software requirements. As Brooks' 
[Ref. 12] writes, "In most projects, the first system built 
is barely usable ... .When a new system concept or new tech- 
nology is used, one has to build a system to throw away, for 
even the best planning is not so omniscient as to get it 
right the first time." 
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including mouse-control as one method of manipulating the 
interface . 

Because of the highly specialized nature of the IRIS 
workstation, many graphics functions that are trivial on the 
IRIS system become major considerations on non-dedicated 
machines. Consequently, INTUITION (Version 1.1) is designed 
to test the validity of a visual MMS interface in the MSDOS 
environment using an IBM PC (XT or AT) or compatible. It is 
programmed in the Lattice C programming language and uses 
graphic routines from the HALO Graphics Library. Lattice C 
was chosen because it supports a wide variety of systems 
(thus easing future portability issues) and, more impor- 
tantly, because it directly interfaces with the Oracle 

£ 

Relational Database Management System (RDBMS) . The HALO 
Graphics Library was selected because of its completeness as 
a graphics language and because of the large number and 
variety of graphics devices and other peripherals that it 
supports (again, a portability issue) . This makes it 
possible to produce a bit-mapped graphics display while mini- 
mizing machine-specific graphics programming. INTUITION (V 
1.1) has been tested with and specifically supports the IBM 
Color Graphics Adapter (CGA) , generic CGA work-alikes, the 
IBM Enhanced Graphics Adapter (EGA) , and the Sigma Designs 
Color 400 graphics adapter. However, with minimal modifi- 

6 ORACLE was previously selected as the RDBMS of choice 
for the particular MMS to which INTUITION interfaces because 
of its support of Structured Query Language (SQL) . 
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cation, it can be configured to run on any graphics device 
supported by the HALO Graphics Library. (See Appendix A for 
a listing of the currently supported devices.) 

Appendix B contains structure charts detailing the basic 
control structure of INTUITION (V 1.1) . Both model manage- 
ment and structured modeling are evolving concepts. As such, 
numerous changes are to be expected in any software package 
involving them. To remain effective, the software must 
easily accommodate these changes as new functions are added 
and old functions are modified or removed. INTUITION accom- 
plishes this in three ways. First, all constants and data 
types are consolidated and defined in header files where they 
are readily available if the program needs modification. 
Secondly, common-use utility functions are gathered into a 
single library file (util.c). Thirdly, the control structure 
of INTUITION accommodates a series of "plug-in/pull-out" 
modules to implement the main functions of the program. 
These modules, along with the submodules that support them, 
are essentially self-contained units that can be modified or 
even completely removed (i.e., pulled-out) without effecting 
the remainder of the program. Likewise, as new functions are 
identified, new modules can be developed and easily plugged 
into the control structure of the program. Not only do these 
techniques enhance the extendibility and contractibility of 
the program, but they also significantly ease the portability 
of the software across computer systems. 
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The program listing for INTUITION (V 1.1) is provided in 
Appendix C. Appendix D is a self-contained (i.e., stand- 
alone) user's manual which provides commands and detailed 
procedures for using INTUITION. 

The program initially creates a display screen that 
consists of five fixed windows as specified in the previous 
section. In addition, two smaller windows (one designated 
ROW and another designated COL) have been included in the 
screen layout. These are intended to maintain user orien- 
tation in the virtual workspace when full-screen scrolling is 
finally implemented, but are non-functional in Version 1.1. 
They are included at this point simply to preclude a major 
screen redesign in the immediate future. Figure 6 provides 
a mock-up of this main display screen. 

The dimensions of each screen area are defined as 
floating point constants in a header file (intuit. h) and are 
entered in the program in HALO Graphics world coordinate 
mode. This facility has become a standard in languages that 
support graphics programming. It allows us to enter all 
measurements in real world units'^ as opposed to dealing 
strictly in artificial screen coordinates. This signif- 
icantly eases the process of screen layout and object design. 



7 In this case, measurements are given in inches and 
fractions thereof. Specifically, the screen is laid out in a 
rectangular grid that measures eight inches horizontally by 
five inches vertically. These proportions reflect the actual 
aspect ratio of the computer screen reasonably well. 
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Unless otherwise noted, all measurements in the program are 
given in world coordinates. 

Each of the six icons representing a modeling element is 
constructed within a rectangle one inch long by eight/tenths 
inch high. The individual geometric shape fits in a 
six/tenths inch square centered inside this rectangle. The 
shapes themselves have no specific significance to structured 
modeling. They were selected primarily to provide a clear 
visual differentiation of elemental types. However, the 
seventh icon representing the structured model concept of a 
module is approximately twice the size of the other elemental 
icons to visually show that it fulfills a different function 
within structured modeling. Each icon is completely defined 
within a separate module (in the file, icon.c). Consequently, 




Figure 6: INTUITION (V 1.1) Main Screen 
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an icon can be reproduced at any point in the program by 
simply calling its respective module. This also makes it 
easy to redesign or modify the icons during the prototyping 
process to better align them with the user's perceptions of 
what they should be. 

Error messages and various prompts are presented to the 
user in the dialog area at the bottom of the display screen. 
However, menu choices (other that the initial command button 
selections) are made from pop-up menus that overlay portions 
of the workspace area. This necessitates a series of steps 
each time a menu is displayed: 

(1) saving a portion of the workspace to a temporary 
array, 

(2) drawing the pop-up menu, 

(3) reading the user's selection, 

(4) erasing the menu, and 

(5) restoring the screen display underneath. 

Moving large portions of the screen display to and from 
memory is typically a slow process often requiring machine- 
level programming to make it practical. Fortunately, the 
HALO Graphics Library provides two functions, MOVETO and 
MOVEFROM, that greatly simplify this task and are suffi- 
ciently fast for our purposes. 

The workspace area utilizes another feature of the HALO 
Graphics Library, the SETVIEWPOINT function. This allows us 
to set one world coordinate system for the entire screen and 
a separate world coordinate system for just the workspace 
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area. This technique allows us to reduce the size of the 
icons in the workspace to approximately three-fourths of 
their menu size, thus allowing us to produce somewhat larger 
models in the workspace area. 

The workspace itself consists of 56 cells arranged in a 
matrix of eight columns by seven rows . Figure 7 shows the 
layout of a typical cell. The active cell is designated by a 
box cursor that delineates the cell boundaries. This cursor, 
as well as the edge cursor, discussed later, are created with 
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Figure 7: Workspace Cell Layout 

the HALO Graphics rubber band functions. This is a set of 
functions that allow us the easily animate objects by 
automatically erasing and redrawing their image as their 
screen coordinates change. These functions use an exclusive 
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or (XOR) operation to draw and erase the cursor without 
destroying the underlying screen image. 

Selected icons and their associated names are displayed 
inside the cell boundaries. These cells can then be 
connected by arcs (edges) . INTUITION (V 1.1) currently 
restricts the numbers of edges (i.e., calls) emanating from a 
single cell to five or less. Otherwise, every effort was made 
to allow the user near total freedom in positioning the edges 
so that the program does not unnecessarily dictate his view 
of the model. This presents several problems. 

First, edges may be drawn at any angle, so lines 
approaching the horizontal or vertical show varying degrees 
of aliasing . This can make it difficult for the eye to 
follow the edge, particularly if lines happen to intersect, 
as they well may in a complex model. The only solution at 
this point is to use the maximum resolution possible to 
reduce the " jaggies," although in the future, various anti- 
aliasing techniques should be explored to improve the display 
quality . 

The second problem comes from the fact that the edges 
must be directed arcs. On paper, this is accomplished quite 
simply by placing an "arrow" on the calling end of the arc. 
It becomes much more difficult on the computer screen. Since 
the individual screen pixels are rectangular, not square, the 



8 This is the stair-step effect commonly seen when 
circles and lines are drawn on a computer screen. 



39 



arrows on non-horizontal or non-vertical edges are severely 
distorted. To solve this problem, we chose to draw these 
arcs with short vertical sections that contain the arrow 
itself (see Figure 7) . 

Finally, if an edge is simply drawn as straight lines 
from a beginning point to an ending point, the possibility 
exists that it will inadvertently pass through an icon. To 
preclude this from happening, we allow the user to change the 
direction of an edge (up to three turns in V 1.1) by simply 
moving the edge cursor to a desired location, pressing a key, 
and continuing the edge from that point. However, this means 
that we have to save, not only the beginning and ending 
coordinates of each edge, but also the coordinates of each 
turn point. This significantly increases the amount of 

graphics data that the program must track in order to 
manipulate the image (e.g. to erase an arc that is incor- 
rectly placed) . 

The HALO Graphics Kernal contains functions for allo- 
cating computer memory and for rapidly saving and recalling 
the entire graphics screen to and from this allocated block 
of memory. This technique is used to create a second screen 
for data entry of the non-graphical portions of the struc- 
tured model (see Figure 8) . The user can toggle back and 
forth between the two displays at any time without loss of 
data . 
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To complete the process of model creation, the graphical 
representation must be transformed into a database format and 
stored in the ORACLE RDBMS. INTUITION interfaces with the 
database through ORACLE'S programmatic interface called 
Pro*C. This enables INTUITION to actually read and write 
data to ORACLE, using a high-level query language: Struc- 
tured Query Language, or SQL (pronounced "sequel"). 

Data is stored in ORACLE in two tables. The first of 
these is the ENTITY table. It contains the data necessary to 
describe the specific characteristics of each model node. 
The second is the RELSHIP table which holds the data that 
describes the relationship between nodes. In the case of 
genus graphs, this is the calling sequence data. For modular 
trees, it reflects what subtrees are contained in the module, 
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Figure 8: INTUITION (V 1.1) Data Entry Screen 
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i.e., the parent-child relationships. Refer to Figure 9 for 
the specific contents of each table. 

In the ENTITY table, ENAME and ETYPE hold the entity name 
and entity type. For structured models, these refer to the 
specific genus or modular name and the appropriate element 
type (pe, ce, a, va, f, t, or m) . DNAME is a free-form 
descriptive variant of the entity name. DATE_ADDED is the 
date that the record was created and LAST_MOD is the date 
that the record was last modified. NMODS is the number of 
modifications that have been made to the record. IDX, 
IDX_STMT, GRANGE, GRULE are the index, index set statement, 
generic range statement, and generic rule, respectively, from 
the structured model schema paragraph (see Figure 5) . 
COMMENTS equates to the structured modeling concept of an 
informal interpretation. 

In the RELSHIP table, RTYPE is the relationship type. 
This is either "CALLS" for a generic calling sequence or 
"CONTAINZ" for a modular subtree. E1NAME and E1TYPE reflect 
the calling element and type in a genus graph or the parent 
node and type in a modular graph. Likewise, E2NAME and 
E2TYPE are the called element and type in a genus graph or 
the child node and type in a modular graph. ACC_METH (access 
method) and FREQ (frequency) are not used in this program and 
are always null filled. REL_POS is used only in modular 
structures and contains the positional number of the node in 
a monotone ordering. 
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It is obvious that ENTITY and RELSHIP are general purpose 
tables within the context of the model management system. As 
such, they contain data fields that are used for a variety of 
purposes. Consequently, not every item in each table is 
necessary to describe a given modeling element or relation- 
ship. For example, a primitive entity requires only ENAME, 
DNAME, DATE_ADDED , LAST_MOD , NMODS, and COMMENTS. The 
remaining fields in the ENTITY table would simply contain 
null values. On the other hand, a test element or a function 
element requires values for IDX_STMT and GRULE, in addition 
to those necessary for a primitive entity. A similar 
situation holds for the RELSHIP table. A calling sequence 
requires only E1NAME, E1TYPE, E2NAME, and E2TYPE (the calling 
and called nodes) . However, a modular relationship must also 
include REL_POS to denote the positional relationship of 
child to parent in the monotone ordering. All remaining 
fields are simply null placeholders. This capability to 
design a general purpose table and then create alternative 
views or ways of looking at the same data is one of the 
distinct advantages of the ORACLE RDBMS and SQL. The views 
become virtual babies through which you can see the data that 
is stored in real tables. While the views themselves contain 
no data of their own, they can be operated on just as if they 
were the real tables. According to the ORACLE documentation, 
this has the advantage of simplifying data access, of 
providing data independence, and of providing data privacy. 
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Version 1.1 of INTUITION falls short of providing the 
total functionality specified in the previous section. These 
shortcomings, with recommendations for their inclusion in 
future versions of the program, are discussed in Section VII 
under future enhancements to the system. 

However, INTUITION (V 1.1) has shown that the imple- 
mentation of a visual interface for a model management system 
is feasible in a standard microcomputer environment; but , it 
is not a trivial undertaking. The primary difficulties stem 
from the open ended n^cure of the thinking, and hence the 
modeling, processes. Different people approach the same 
problem in a variety of ways. In a computer environment, the 
hardware and software should transparently assist the modeler 
in depicting his mental image of the model. It should not 
unduly restrict or inhibit his thought processes. The 
program should accommodate him. He should not have to bend 
his will to the machine. 

It is unfortunate for the programmer that every user is 
different. In general, software cannot be designed for a 
single individual user, but must satisfy many. It is these 
differences in users, coupled with the need for free-form 
entry of a model concept, that make this type of programming 
so difficult to do well. 

Nevertheless, the development of a visual interface poses 
no unsolvable problems, even though the IBM PC/MSDOS (and 
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from a 



compatibles) environment is perhaps not ideal^ 
programming perspective. Two areas deserve particular 

comment . 

The first of these is screen resolution. The typical 
microcomputer display device is a standard cathode ray tube 
(CRT) . It generally uses raster-scan technology to "paint" a 
picture on the screen by means of an electronic beam. This 
picture is created as a set of points (called picture 
elements or pixels) as the electron beam scans from left to 
right and top to bottom. The number of pixels that can be 
displayed without overlap is called the CRT's resolution. 

Obtaining adequate resolution in the MSDOS environment 
presents some concerns. Our initial specifications required 
the program to support both CGA and EGA type graphics 
adapters and to support color coding of various icons and 

paragraph schema. It quickly became apparent that the 

maximum CGA color resolution (320x200 pixels) was severely 
inadequate. For example, circles smaller than the diameter 
of a quarter loose their "roundness." Diagonal lines 
exhibited excessive aliasing, making them unsuitable for 

drawing directed arcs between nodes . 

The coup de grace was the text display. Text is required 
to label element names within the drawing area. Even in 
graphics mode, CGA text is displayed at 40 characters per 

^ More will be said about the "ideal" environment in 
Section VIII, under future enhancements. 
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line. Text this large severely limits the number of nodes 
that can be displayed simultaneously on the screen. This 
defeats one of the primary advantages of a visual interface — 
the ability to see the nodes and arcs in context. The disad- 
vantages of the CGA color mode heavily outweigh the advantage 
of having four colors available for programming. We decided 
to limit CGA displays to black and white in order to use the 
higher resolution (640x200) available in the monochrome 
display mode. Even then the size of the text display is 
limiting because text is displayed twice as high as wide. 
Realistically, EGA (640x385) or better resolution is desir- 
able for any display and is essential for color displays. 

The second area of concern is computer memory. Graphics 
programming, in general, is memory intensive. In addition, 
this program uses pop-up menus which require that large 
sections of the screen temporarily be saved to memory when a 
menu is displayed so that the screen underneath can be 
restored when the menu is erased. The higher the resolution, 
the more memory that is required to store the screen infor- 
mation . 

Compounding the fact that the graphics themselves use 
substantial memory, the program needs to accommodate reason- 



able sized models 


(i . e . , up 


to several 


hundred 


nodes 


and 


arcs) . 


The data 


structures 


necessary 


to hold 


both 


the 


graphics 


data and 


modeling 


data for 


these elements 


is 



significant. Finally, the program must share memory with the 
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Oracle RDBMS which has considerable memory requirements of 
its own. 

The outgrowth of this is that expanded memory, beyond 
640K, is necessary for effective use of the system. How much 
expanded memory is dependent essentially on what size models 
will be created and what resolution screen is desired. The 
availability of 640K or less, however, necessarily restricts 
the user to CGA monochrome and relative small models. 
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VII. FUTURE ENHANCEMENTS AND ADDITIONAL RESEARCH 



Several utilities and functions should be included in the 
next revision of INTUITION. These enhancements are discussed 
below . 

Scrolling . INTUITION (V 1.1) only supports a limited 
workspace of 56 cells. While sufficient to test all program 
functions, this workspace is insufficient to hold any but the 
smallest models. To be effective, the next version of 
INTUITION should support a four-way, scrollable "virtual" 
workspace. The program should determine the actual maximum 
size of this workspace automatically from the memory avail- 
able on a given computer and should configure itself accord- 
ingly . 

Saving and Loading Models . It is not unreasonable to 
expect the user to enter a model (particularly a large model) 
in more than a single session. This means that the program 
must support some method of saving the partial model to disk 
and subsequently reloading it, without the loss of infor- 
mation or spatial orientation. INTUITION (V 1.1) only 
supports a limited means of doing this. Basically, the 
entire graphics screen is saved to disk as an image file. 
The necessary text information required to describe the model 
is saved to another file. This method will not work when the 
workspace is expanded by scrolling. The next version of 
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INTUITION should support the saving and reloading of all 
models, regardless of size. 

Printing Model Graphs and Model Schema . INTUITION 
(V 1.1) supports no hardcopy devices, although several 
printer and plotter routines are included with the HALO 
Graphics Library. Printing a model schema presents few 
problems since it is essentially text-based data. Printing 
the model graph is more difficult because it involves output 
to a graphics printer or plotter. The HALO Graphics Library 
eases these problems somewhat by providing driver programs 
for several common printers and plotters. In addition, the 
HALO library includes a special graphics device driver called 
the Virtual Raster Interface. This device driver is unique 
in that it does not control a specific board. Rather, it 
creates the model of a display device in the IBM PC user 
memory space. Such a virtual display device permits the user 
to create a display of any arbitrary resolution and then 
output the display to a hard copy device. It is thus 
possible to produce printouts of much higher resolution than 
the display device actually installed in the computer. The 
possible advantages of producing hardcopy with this device 
driver should be explored in the next version of INTUITION. 

Testing . Pressman [Ref. 10, p. 467,470], in describing 
testing, states. 

Software testing is a critical element of software quality 
assurance and represents the ultimate review of specifi- 
cation, design, and coding .... The increasing visibility of 
software as a system element and the attendant "costs" 
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associated with a software failure are motivating forces 
for well-planned, thorough testing. It is not unusual for 
a software development organization to expend 40 percent of 
the total project on testing .... The design of tests for 
software and other engineered products can be as chal- 
lenging as the initial design of the product itself. 

Only limited and informal testing of INTUITION has been 
done. This consisted primarily of "white box" testing 
required during the coding process. A detailed test plan 
should be developed and appropriate test cases devised to 
more fully test the program. This should include "white box" 
testing to ensure that all independent paths within each 
function have been exercised at least once, that all logical 
decisions have been tested on both the true and false sides, 
that all loops have been tested at their boundaries and 
within their operational ranges, and that the internal data 
structures are valid. "Black box" testing should also be 
conducted to ensure that the program meets all functional 
requirements. Specifically, it should determine if there are 
any incorrect or missing functions, if there are any inter- 
face errors between functions, if there are errors in data 
structures or external database access, if there are perfor- 
mance errors, and if there are any initialization or termi- 
nation errors. [Ref. 10, pp . 472, 484] 

With regard to further research, two areas have surfaced. 
These topics are briefly introduced below. 

Re-creation of the Graphic Representation from the 
Database Representation . Concurrently with this thesis, 
Wyant [Ref. 13] has designed and implemented a program that 
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uses the database representation of a structured model to 
redisplay a pictorial view of the genus graph. In a sense, 
his thesis and this one are opposite sides of the same coin. 
While this thesis concentrates on entering a structured model 
into the database using a visual representation of the genus 
graph, Wyant's does just the opposite. Both functions are 
necessary parts of a complete model management interface. 

In fact, both programs could be combined into an inte- 
grated system. This could provide substantial savings in 
program overhead. No major problems are anticipated in 
merging the two. Both are written in the Lattice C program- 
ming language, use the HALO Graphics Library, run in the 
MSDOS environment, use similar icon images for display, and 
access the same database structures within the Oracle RDBMS. 
Minor problems, such as adopting a common screen display and 
eliminating duplicate functions, should be easily resolved. 
One major concern does stand out, however. When a model is 
reloaded from the database representation, spatial relation- 
ships set up between nodes and arcs when the model was 
originally designed will be lost. This could cause some 
disorientation for the user, particularly if he expects to 
see "his" model re-displayed. Wyant proposes to solutions to 
this problem: 

(1) expand the database to include the necessary graphical 
data, so that the graph can be re-displayed as 
originally drawn; or 

(2) reformat the user's representation (following Wyant's 
algorithms) as the user enters the model data. 



52 



Moving Genera/Subtrees within the Pictorial Represen- 



tation . One of the advantages of a computer interface is the 
ability to quickly and easily modify the model representation 
to reflect how the user currently views or thinks about the 
model relationships. To do so, the user must be able to 
specify a segment of the model pictograph--either a group of 
genera or a modular subtree — and, once specified, to move 
this grouping to any other location in the pictograph. This 
presents major problems that are, in many respects, similar 
to those faced by Wyant in re-creating the model represen- 
tation from the database description. 

Specifically, the entire pictograph must be realigned to 
open up space for the group at the new location and to close 
up the vacated space at the old location. Even more diffi- 
cult, all of the edge relationships between nodes must be 
maintained and automatically adjusted for the new location 
(without intersecting any other icons). Essentially, this 
requires restructuring of the entire model. In an inter- 
active environment, this must be accomplished in a reasonably 
short time. It is a potentially significant problem that 
must be resolved in future versions, quite possibly through 
employment of artificial intelligence techniques. Alter- 
natively, the algorithms for displaying the model that were 
developed by Wyant could possibly be used to accomplish this 
function . 
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Other Operating Environments 1 ^. As stated earlier, while 



the development of a visual interface is certainly feasible 
under MSDOS, it is not the optimum programming environment 
for a graphics based system. Several alternatives exist. In 
particular, recent advances in computer technology provide 
some very attractive approaches to explore. 

As indicated in a previous section, the original version 
of INTUITION was implemented on a dedicated IRIS Graphics 
workstation. With its ability to link to the UNIX environ- 
ment, the IRIS offers an excellent high-end solution. It 
provides all of the necessary graphics functions and is 
unique in offering the capability of viewing graphics objects 
in three dimensions. Whether or not there is any advantage 
in being able to visualize a structured model (a modular 
tree, for example) in three dimensions is an interesting 
question in its own right. 

Within the IBM and compatibles world, adaptation to the 
forthcoming OS/2 operating system is an obvious migration 
path from the MSDOS environment. The arrival of IBM's 
promised "Presentation Manager" software should enhance the 
graphics operating environment. An alternative approach to 
enhance the current MSDOS environment is the use of an 
add-on "windowing" environment. In this regard, DESQview 



10 These comments pertain only to the implementation of 
a visual interface. They do not necessarily pertain to the 
overall implementation of a model management system. 
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from Quarterdeck Office Systems is a very strong contender. 
Not only does it offer windowing capability, but it also 
provides extensive memory management and multi-tasking capa- 
bilities, both of which could be can be effectively utilized 
in a model management interface. 

Rather than windowing, a two monitor system could also be 
devised. One monitor would be used to display and manipulate 
the graphics information. A second monitor could display 
textual data and allow direct access to the ORACLE RDBMS 
through the SQL*Forms utility. This is an ORACLE function 
that lets you design custom input "forms" for any appli- 
cation. These forms provide fast and easy data entry, 
updates, deletions, and queries to an ORACLE database. This 
would provide the best of both worlds, so to speak, allowing 
a truly integrated graphics and text environment. 

However, perhaps the most attractive environment from a 
hardware perspective is the Apple Macintosh II. Based on a 
proven visual interface, the "MAC II" offers integrated 
windowing, menus, mouse-control, graphics primitives, and 
expansion memory. It provides adequate high resolution 
graphics and color without the confusion engendered by the 
multitude of add-on graphics devices available for the IBM 
PC's and compatibles. From a software viewpoint, its advan- 
tages are less apparent, although developing a model manage- 
ment interface under Apple's new HyperCard software certainly 
offers possibilities worth pursuing. The main drawback is 
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APPENDIX A 



HALO Supported Graphics Devices 



1 . Amdex MAI 

2. AT&T Display Enhancement Board 

3. AT&T Image Capture Board 

4. AT&T Indigenous Graphics Board 

5. AT&T TARGA 8 and M8 

6. AT&T TARGA 16 

7. AT&T Video Display Adapter 

8. Conographics Model 25 

9. Conographics Model 40 

10. Datacube IVG-128 

11 . Generic IBM Display Card 

12. Hercules Monochrome Graphics 

13. IBM 3270 PC with All Points Addressable 

Graphics Adapter 

14. IBM Color Graphics Adapter 

15. IBM Enhanced Graphics Adapter (EGA) 

16. IBM PCjr 

17. Imaging Technology FG-100-AT 

18. Imaging Technology PC-Vision 

1 9 . Imagraph AGC 4 

20. Imagraph AGC 8 (IM512P and IM1024P) 

21. Metheus Omega/PC Display Processor 

22. Micro Display Systems Genius VHR 

23. New Media Graphics PC Overlay 

24. Number Nine Revolution 

25. Number Nine Revolution 2048x4 

26. Quadram Palette Master 

27. Quadram Quadscreen 

28. Quadram Quadcolor II 

29. Scion PC 640 

30. Sigma Designs Color 400 

31. STB Graphix Plus II 

32 . Tecmar Graphics Master 
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33. Texas Instruments Professional 

34. Tseng Labs EVA & EVA/480 

35. Virtual Raster Interface'*' ^ 

36. WYSE WY-700 



11 This device driver is unique in that is does not 
control a specific board. Rather, it creates the model of a 
display device in the IBM PC user memory space. Such a 
virtual display device permits the user to create a display 
of any arbitrary resolution and then output the display to a 
hard copy device. It is thus possible to produce printouts 
of much higher resolution than the display device actually 
installed in the computer. 
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APPENDIX B 



Structure Charts 
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INTUITION (V 1.1) 
scrngen() module 
flmode() module 
f2add() module 
f3delete() module 
f4change() module 




Figure 10: INTUITION (VI. 1) 
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Figure 11: scrngen() module 
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Figure 12: flmode() module 
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Figure 13: f2add() module 
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Figure 14: f3delete() module 
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Figure 15: f4change() module 
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APPENDIX C 



Program Listing 



File Name 

intuit. h a. 

struct . h 
exstruct . h 

int . c a . 

scrn.c a. 

menu . c a . 

b. 

c . 

icons. c a. 



b. 

c . 

d. 

e . 

f . 

g- 

h. 

util . c a . 

b. 

c . 

d . 

e . 

f . 

g- 

h. 
i . 

j • 

k . 

l . 

m . 

n . 

o . 

P- 

fun . c a . 

b . 

c . 

d. 

e . 



Function Name 
none (header files) 



main ( ) 

scrngen ( ) 

devmenu ( ) 
clearscn ( ) 
curlocate ( ) 

pe_icon ( ) 
ce_icon ( ) 
a_icon ( ) 
va_icon ( ) 
f_icon ( ) 
t_icon ( ) 
m_icon ( ) 
arrow ( ) 

bigport ( ) 
littleport ( ) 
getchr ( ) 
decode_char ( ) 
inside ( ) 
draw_submenu () 
restore_under_menu ( ) 
def ine_dot_test ( ) 
write_error ( ) ; 
clear_dialog_box { ) 
clear_status_box ( ) 
write_dialog ( ) 
get_string ( ) 
get_name ( ) 
get_model_name ( ) 
init_workspace ( ) 

f lmode ( ) 
f 2add ( ) 
f 3delete ( ) 
f 4change ( ) 
f 5f ind ( ) 



8 . sfunl . c 



f . 

g- 

h. 
i . 

j • 

a . 

b. 

c . 

d. 

e . 

9 . sfun2 . c a . 

b. 

c . 

d. 

e . 

f . 



f 6move ( ) 
f 71oad ( ) 
f 8save ( ) 
f 9dbms ( ) 
f lOquit ( ) 

create_genus_graph ( ) 
add_node ( ) 
add_edge ( ) 
change_name ( ) 
change_type ( ) 

create_module_tree ( ) 
edit_model_paragraphs ( ) 
add_module ( ) 
delete_node ( ) 
delete_edge ( ) 
delete module () 
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* Name: intuit. h * 

* Purpose: contains #defines for Intuition * 

* Author: David D. O'Dell * 

* Date: 15 December 1987 * 



#def ine 


MAXNODES 


56 


#define 


BEGIN 




0 


#def ine 


END 




4 


#def ine 


MAXEDGES 


5 


#def ine 


MAXPOINTS 


6 


#def ine 


TRUE 


1 




#def ine 


FALSE 


0 




#def ine 


BLACK 


0 




#def ine 


BLUE 


1 




#def ine 


GREEN 


2 




#def ine 


CYAN 


3 




#def ine 


RED 


4 




#def ine 


MAGENTA 5 




#def ine 


BROWN 


6 




#def ine 


WHITE 


7 




# define 


GREY 


8 




#def ine 


BRIGHT^ 


_BLUE 


9 


#def ine 


BRIGHT_ 


GREEN 


10 


#def ine 


BRIGHT 


CYAN 


11 


#def ine 


BRIGHT_ 


_RED 


12 


#def ine 


BRIGHT^ 


MAGENTA 


13 


#def ine 


YELLOW 




14 


#def ine 


BRIGHT^ 


WHITE 


15 


#def ine 


SOLID 


1 




#def ine 


DITHERED 2 




#def ine 


WXMAX 


8.05 




#def ine 


WYMAX 


5.05 




#def ine 


WXMIN 


0.0 




#def ine 


WYMIN 


0.0 




#def ine 


BUTTONS 


; l 




#def ine 


ICONS 


2 




#def ine 


WORKAREA 3 





/^maximum nodes in workspace*/ 
/^starting point of edge*/ 

/*ending point of edge*/ 

/*maximun edges in and out of node* 

/*maximum coord pairs for an edge*/ 

/*boolean true is non-zero*/ 
/*boolean false is zero*/ 

/*standard colors*/ 



/*hatch style indices*/ 



/*set maximum world x-coordinate*/ 
/*set maximum world y-coordinate * / 
/*set minimum world x-coordinate*/ 
/*set minimum world y-coordinate*/ 

/*command button area*/ 

/*icon area*/ 

/*work area*/ 



/ 



/* following coordinates are given in world coord system*/ 

#define XLLSTATUS 0.0 /*status bo:: lower left ::-coord*/ 

#define YLLSTATUS 4.7 /*status box lower left y-coord*/ 
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#def ine 


XURSTATUS 


6.0 


/^status box upper right x-coord*/ 


#def ine 


YURSTATUS 


5.0 


/^status box upper right y-coord*/ 


#def ine 


XL L ROW 


6.0 


/*row box 


lower left x-coord*/ 


#def ine 


YLLROW 


4 . 6 


/*row box 


lower left y-coord*/ 


#define 


XURROW 


7.0 


/*row box 


upper right x-coord*/ 


#def ine 


YURROW 


5.0 


/*row box 


upper right y-coord*/ 


#def ine 


XLLCOL 


7.0 


/ *col box 


lower left x-coord*/ 


#def ine 


YLLCOL 


4 . 6 


/*col box 


lower left y-coord*/ 


#def ine 


XURCOL 


8.0 


/*col box 


upper right x-coord*/ 


#def ine 


YURCOL 


5.0 


/*col box 


upper right y-coord*/ 


#def ine 


XLLICONS 


6.0 


/*icon area lower left x-coord*/ 


#def ine 


YLLICONS 


1.8 


/*icon area lower left y-coord*/ 


#def ine 


XURICONS 


8.0 


/*icon area upper right x-coord*/ 


#define 


YURICONS 


4 . 6 


/*icon area upper right y-coord*/ 


#def ine 


XLLCMDHDR 


6.0 


/*cmd hdr 


lower left x-coord*/ 


#def ine 


YLLCMDHDR 


1.5 


/*cmd hdr 


lower left y-coord*/ 


#def ine 


XURCMDHDR 


8.0 


/*cmd hdr 


upper right x-coord*/ 


#def ine 


YURCMDHDR 


1.8 


/*cmd hdr 


upper right y-coord*/ 


#def ine 


XLLBUTTONS 


6.0 


/ *buttons 


lower left x-coord*/ 


#def ine 


YLLBUTTONS 


0.0 


/ *buttons 


lower left y-coord*/ 


#def ine 


XURBUTTONS 


8.0 


/*buttons 


upper right x-coord*/ 


#def ine 


YURBUTTONS 


1.5 


/*buttons 


upper right y-coord*/ 


#def ine 


XLLDIALOG 


0.0 


/*dialog box lower left x-coord*/ 


#def ine 


YLLDIALOG 


0.0 


/*dialog box lower left y-coord*/ 


#def ine 


XURDIALOG 


6.0 


/*dialog box upper right x-coord*/ 


#define 


YURDIALOG 


0.6 


/*dialog box upper right y-coord*/ 


#def ine 


XLLWORK 


0.0 


/*workspace lower left x-coord*/ 


#def ine 


YLLWORK 


0.6 


/*workspace lower left y-coord*/ 


#def ine 


XURWORK 


6.0 


/*workspace upper right x-coord*/ 


#def ine 


YURWORK 


4.7 


/*workspace upper right y-coord*/ 


#def ine 


XLLPE 


6.0 


/ *PE lower 


left x-coord*/ 


#def ine 


YLLPE 


3.9 


/*PE lower 


left y-coord*/ 


#def ine 


XURPE 


7.0 


/ *PE upper 


right x-coord*/ 


#def ine 


YURPE 


4 . 6 


/ * PE upper 


right y-coord*/ 


#def ine 


XLLCE 


7.0 


/*CE lower 


left x-coord*/ 


# define 


YLLCE 


3.9 


/ *CE lower 


left y-coord*/ 


#def ine 


XURCE 


8.0 


/ *CE upper 


right x-coord*/ 


#def ine 


YURCE 


4.6 


/ *CE upper 


right y-coord*/ 


#def ine 


XLLA 


6.0 


/ * A lower 


left x-coord*/ 


#def ine 


YLLA 


3.2 


/ *A lower 


left y-coord*/ 


#def ine 


XURA 


7.0 


/*A upper 


right x-coord*/ 


#def ine 


YURA 


3.9 


/ *A upper 


right y-coord*/ 


#def ine 


XLLVA 


7.0 


/ * VA lower 


left x-coord*/ 
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#def ine 


YLLVA 


#def ine 


XURVA 


♦define 


YURVA 


♦define 


XLLF 


♦define 


YLLF 


♦define 


XURF 


♦define 


YURF 


♦define 


XLLT 


♦define 


YLLT 


♦define 


XURT 


♦define 


YURT 


♦define 


XLLM 


♦define 


YLLM 


♦define 


XURM 


♦define 


YURM 


♦define 


XLLF1 


♦define 


YLLF1 


♦define 


XURF 1 


♦define 


YURF1 


♦define 


XLLF2 


♦define 


YLLF2 


♦define 


XURF 2 


♦define 


YURF 2 


♦define 


XLLF3 


♦define 


YLLF3 


♦define 


XURF 3 


♦define 


YURF 3 


♦define 


XLLF 4 


♦define 


YLLF 4 


♦define 


XURF 4 


♦define 


YURF 4 


♦define 


XLLF 5 


♦define 


YLLF5 


♦define 


XURF 5 


♦define 


YURF 5 


♦define 


XLLF6 


♦define 


YLLF 6 


♦define 


XURF 6 


♦define 


YURF 6 


♦define 


XLLF7 


♦define 


YLLF7 


♦define 


XURF 7 



3.2 


/*VA lower 


8.0 


/ *VA upper 


3.9 


/*VA upper 


6.0 


/ *F 


lower 


2.5 


/*F 


lower 


7.0 


/*F 


upper 


3.2 


/ *F 


upper 


7.0 


/ *T 


lower 


2.5 


/ *T 


lower 


8.0 


/ *T 


upper 


3.2 


/ *T 


upper 


6.0 


/ *M 


lower 


1 . 8 


/ *M 


lower 


8.0 


/ *M 


upper 


2.5 


/ *M 


upper 


6.0 


/ *F1 


lower 


1.2 


/ *F1 


lower 


7.0 


/*F1 


upper 


1 . 5 


/*F1 


upper 


6.0 


/ *F2 


lower 


0.9 


/*F2 


lower 


7.0 


/ *F2 


upper 


1.2 


/ *F2 


upper 


6.0 


/ *F3 


lower 


0.6 


/*F3 


lower 


7 . 0 


/ *F3 


upper 


0.9 


/*F3 


upper 


6.0 


/*F4 


lower 


0.3 


/ *F4 


lower 


7.0 


/*F4 


upper 


0.6 


/ *F4 


upper 


6.0 


/*F5 


lower 


0.0 


/*F5 


lower 


7.0 


/*F5 


upper 


0.3 


/*F5 


upper 


7.0 


/*F6 


lower 


1.2 


/ *F6 


lower 


8.0 


/*F6 


upper 


1.5 


/*F6 


upper 


7 . 0 


/ * F7 


lower 


0.9 


/ * F7 


lower 


8.0 


/ *F7 


upper 



left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord*/ 
right x-coord*/ 
right y-coord*/ 

left x-coord*/ 
left y-coord* 
right x-coord*/ 
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#def ine 


YURF7 




1.2 


/*F7 


upper 


right y-coord*/ 


#def ine 


XLLF8 




7.0 


/ *F8 


lower 


left x-coord*/ 


#def ine 


YLLF8 




0.6 


/*F8 


lower 


left y-coord*/ 


#def ine 


XURF8 




8.0 


/*F8 


upper 


right x-coord*/ 


#def ine 


YURF8 




0.9 


/*F8 


upper 


right y-coord*/ 


#def ine 


XLLF9 




7.0 


/*F9 


lower 


left x-coord*/ 


#def ine 


YLLF9 




0.3 


/*F9 


lower 


left y-coord*/ 


#def ine 


XURF9 




8.0 


/*F9 


upper 


right x-coord*/ 


#def ine 


YURF9 




0.6 


/*F9 


upper 


right y-coord*/ 


fdefine 


XLLF10 




7.0 


/ *F10 


lower 


left x-coord*/ 


#def ine 


YLLF10 




0.0 


/*F10 


lower 


left y-coord*/ 


# define 


XURF10 




8.0 


/*F10 


upper 


right x-coord*/ 


#def ine 


YURF10 




0 . 3 


/*F10 


upper 


right y-coord*/ 


#def ine 


TEXTHT 




1 


/*dot 


text 


height x 8 pixies 


#def ine 


TEXTWD 




1 


/*dot 


text 


width x 8 pixels* 


#def ine 


HORIZONTAL 


0.0 


/♦horizontal text path*/ 


#def ine 


ROTATE^ 


90 


1 . 0 


/♦vertical 


text path*/ 


# define 


ROTATE_ 


180 


3.0 


/♦up- 


side-down text path*/ 


#def ine 


ROTATE_ 


270 


4.0 


/♦vertical 


text path*/ 


#def ine 


BORDER 




1 


/♦border around dot text*/ 


#def ine 


NOBORLER 


0 


/♦no 


border 


around dot text* 
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/I************************************************************* 



* Name : 

* Purpose: 

* 

* Author: 

* Date: 



struct. h * 
contains data structures for ORACLE tables and * 
to hold coordinates for model nodes and edges. * 
David D. O'Dell * 
10 March 1988 * 






struct table 

{ 

char *ename; 
char *etype; 
char *dname; 
char *date_added; 
char *last_mod; 
int nmods; 
char *idx; 
char *idx_stmt; 
char *grange; 
char *grule; 
char ^comments; 

char *rtype; 
char *elname[5]; 
char *eltype [ 5 ] ; 
char *e2name[5]; 
char *e2type[5]; 
char *acc_meth; 
int freq; 
int rel_pos; 

) ; 



/^element name*/ 
/^element type*/ 
/*descriptive name*/ 
/*date node created*/ 
/*date last modified*/ 
/*number of mods*/ 

/* index*/ 

/*index statement*/ 
/*generic range*/ 
/*generic rule*/ 

/* interpretation*/ 



/ Relationship type*/ 
/*calling element*/ 
/*calling type*/ 

/*called element*/ 
/*called type*/ 

/*access method and*/ 
/*frequency always null*/ 
/*position in monotone order*/ 



struct node 

{ 



int used; 
char *ename; 
char *etype; 
float nodex; 
float nodey; 
int out; 
int in; 

float edgex[5] 
float edgey[5] 
int cnode [ 5] ; 
int cedge[5]; 



/ *TRUE is used-EALSE is unused*/ 
/*link to ORACLE tables*/ 

/*node type*/ 

/*x-coord of cell center*/ 

/*y-coord of cell center*/ 

/*number of edges out used*/ 
/*number of edges in used*/ 

[5]; /*x-coord of edges out 1-5*/ 

[5]; /*y-coord of edges out 1-5*/ 

/^number of called by node*/ 
/*number of called by edge*/ 



} ; 



/*element is a table structure*/ 
struct table element [MAXNODES]; 
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/*cell is a node structure*/ 
struct node cell [MAXNODES ] ; 

int used_nodes; /^number of used nodes*/ 

int active_node; /^currently selected node*/ 

char *model name; 
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* Name : 

* Purpose: 

* 

* Author: 

* Date: 



exstruct.h * 
contains external data declarations corresponding * 
to those in struct. h. * 
David D. O'Dell * 
10 March 1988 * 



★ ★ ★ 






extern struct table 
{ 



char 


*ename ; 


/^element name*/ 


char 


*etype; 


/^element type*/ 


char 


*dname ; 


/ *descriptive name*/ 


char 


*date added; 


/*date node created*/ 


char 


*last mod; 


/*date last modified*/ 


int 3 


rimods ; 


/*number of modifications*/ 


char 


*idx; 


/*index*/ 


char 


*idx stmt; 


/*index statement*/ 


char 


*grange; 


/*generic range*/ 


char 


*grule ; 


/*generic rule*/ 


char 


*comments ; 


/ * interpretation*/ 


char 


* rtype ; 


/ Relationship type*/ 


char 


*elname [ 5] ; 


/*calling element*/ 


char 


*el type [ 5 ] ; 


/*calling type*/ 


char 


*e2name [ 5] ; 


/*called element*/ 


char 


*e2type [5] ; 


/*called type*/ 


char 


*acc meth; 


/*access method always 
null*/ 


int freq; 


/*frequency always null*/ 


int rel_pos; 


/*position in monotone 
order*/ 



extern struct node 
{ 

int used; 

char *ename; 
char *etype; 
float nodex; 
float nodey; 
int out; 
int in; 

float edgex[5] [5] ; 
float edgey[5] [5] ; 
int cnode [ 5] ; 
int cedge[5]; 



/ *TRUE is used-FALSE is 
unused*/ 

/ * link to ORACLE tables*/ 
/*node type*/ 

/*x-coord of cell center*/ 
/*y-coord of cell center*/ 
/*number of edges out used*/ 
/*number of edges in used*/ 
/*x-coord of edges out 1-5*/ 
/*y-coord of edges out 1-5*/ 
/^number of called by node*/ 
/*number of called by edge*/ 



}; 



73 



/^element is a table structure*/ 
extern struct table element [MAXNODES ] ; 

/*cell is a node structure*/ 
extern struct node cell [MAXNODES ] ; 

extern int used_nodes; /*number of used nodes*/ 

extern int active_node; /*currently selected node*/ 

extern char *model name; 
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* Name: intuition. c * 

* Purpose: to allow the user to enter a structured model * 

* Author: David D. O'Dell * 

* Date: 29 December 1987 * 

★★★★★★*★*★★★*★*★★*★★*★*★**★★★★★★★★★*★★★★***********★****★*★*****/ 

# include "stdio . h" 

#include "intuit .h" 

#include "struct. h" 

main ( ) 

( 

char getchr(); /^function to input keyboard character*/ 



float xl, yl, x2, y2; 


/*graphic coordinate variables*/ 


float cx, cy; 


/*x-hair cursor coordinates*/ 


float button height; 


/*command button height*/ 


float button width; 


/♦command button width*/ 


float hheight, hwidth; 


/♦height and width of x-hair 
cursor*/ 


int sw; 


/*exclusive-or mode switch*/ 


int status; 


/♦termination status variable*/ 


int color; 


/♦color and hatchstyle*/ 


int on; 
selected* / 


/♦determines command button 


/* 


*/ 



status=0; /^normal termination status*/ 

scrngen(); /*draw display screen*/ 

bigport(); /*set full screen viewport*/ 

color=WHITE; 
setcolor (Scolor) ; 

button__height=YURFl-YLLFl ; /*calc command button height*/ 

button width=XURFl-XLLFl ; /*calc command button width*/ 
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hheight=button_height/2 . 0; 
hwidth=button_width/2 . 0 ; 
color=WHITE; 

inithcur (Shheight , &hwidth, 

cx=XLLBUTTONS+hwidth; 
cy=YURBUTTONS-hheight; 
movhcurabs (&cx, &cy) ; 
delhcur ( ) ; 



/♦height of x-hair cursor*/ 
/*width of x-hair cursor*/ 
/*color of x-hair cursor*/ 
&color) ; /*init x-hair cursor*/ 

/*put x-hair cursor in the*/ 
/*upper right corner of the*/ 
/*command button area*/ 
/♦don't show x-hair cursor*/ 



on=l; /*initialize to flbutton*/ 

xl=0.0; yl=0.0; x2=0.0; y2=0.0; /*initialize bar coord*/ 

while (TRUE) 

{ 

sw=l; / * l=on*/ 

setxor (&sw) ; /*turn on exclusive-or mode*/ 



bar ( &xl , &yl , &x2, &y2 ) ; /*turn old command button off*/ 



switch (on) 

{ 

case 1: 



case 2: 



case 3: 



case 4 : 



case 5: 



case 6: 





/ 


♦changes button 


color*/ 


xl=XLLFl; 


yl=YLLFl; 


/*low It coord 
Flbutton*/ 


of 


x2=XURFl; 


y2=YURFl; 


/*up rt coords 
Flbutton*/ 


of 


break; 


xl=XLLF2 ; 


yl=YLLF2; 


/*low It coord 
F2button*/ 


of 


x2=XURF2 ; 


y2=YURF2; 


/*up rt coords 
F2button*/ 


of 


break; 


xl=XLLF3; 


yl=YLLF3; 


/*low It coord 
F3button*/ 


of 


x2=XURF3; 


y2=YURF3; 


/*up rt coords 
F3button*/ 


of 


break; 


xl=XLLF4; 


yl=YLLF4; 


/*low It coord 
F4button*/ 


of 


x2=XURF 4 ; 


y2=YURF 4 ; 


/*up rt coords 
F4button*/ 


of 


break; 


xl=XLLF 5 ; 


yl=YLLF 5 ; 


/*low It coord 
FSbutton* / 


of 


x2=XURF 5 ; 


y2=YURF 5 ; 


/*up rt coords 
FSbutton*/ 


of 


break; 


:-:l=XLLF6; 


yl=YLLF6; 


/ * low it coord 
FSbut ton*/ 


of 
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} 



case 7: 



case 8: 



case 9: 



case 10: 



x2=XURF 6 ; 

break; 
xl=XLLF7 ; 

x2=XURF7 ; 

break; 
xl=XLLF8 ; 

x2=XURF8 ; 

break; 

xl=XLLF9; 

x2=XURF9; 

break; 

xl=XLLF10 

x2=XURF 10 



break; 
default: break; 

/*end switch*/ 



y2=YURF6; 


/ * up rt coords 
F6button*/ 


of 


yl=YLLF7; 


/*low It coord 
F7button* / 


of 


y2=YURF7; 


/*up rt coords 
F7button*/ 


of 


yl=YLLF8 ; 


/*low It coord 
F8button*/ 


of 


y2=YURF8 ; 


/*up rt coords 
F8button*/ 


of 


yl=YLLF9; 


/*low It coord 
F9button*/ 


of 


y2=YURF9; 


/*up rt coords 
F9button*/ 


of 



yl=YLLF10; /*low It coord of 
FlObutton*/ 

y2=YURF10; /*up rt coords of 
FlObutton*/ 



bar (&xl, &yl, &x2, &y2) ; /*turn new command button on*/ 
sw=0 ; /*0=off*/ 

setxor(Ssw); /*turn off exclusive-or mode*/ 



switch (on) /*selects function*/ 



case 


1: 


on=f Imode ( ) ; 
break; 


case 


2: 


on=f 2add ( ) ; 
break; 


case 


3: 


on=f 3delete ( ) ; 
break; 


case 


4: 


on=f 4change ( ) ; 
break; 


case 


5: 


on=f 5f ind ( ) ; 
break; 


case 


6: 


on=f 6move ( ) ; 
break; 


case 


7: 


on=f 71oad ( ) ; 
break; 


case 


8: 


on=f 8 save ( ) ; 
break; 


case 


9: 


on=f 9dbms ( ) ; 
break; 
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case 10: on=f lOquit ( ) ; 

break; 

default : closegraphics ( ) ; 

exit (status ) ; 
break; 

} /*end switch*/ 

} /*while true*/ 

( /*end main*/ 
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* Name: scrn.c * 

* Purpose: to create the background screen for Intuition * 

* Author: David D. O'Dell * 

* Date: 15 December 1987 * 



# include "intuit . h" 



scrngen ( ) 

{ 



static 


char 


devicel [ ] 




" HALOIBM . DEV" ; / 


*CGA raster dev*/ 


static 


char 


device2 [ ] 


= 


" HALOIBMG . DEV” ; 


/^generic dev*/ 


static 


char 


device3 [ ] 


= 


"HALOIBME . DEV n ; 


/ *EGA rasier dev*/ 


static 


char 


device4 [ ] 


= 


"RALOSIGM.DEV"; 


/*Sigma 400 dev*/ 


static 


char 


titlel [ ] 


= 


"TYPE: " ; 


/ * screen titles*/ 


static 


char 


title2 [ ] 


= 


"NAME: " ; 




static 


char 


title3 [ ] 


= 


"ROW: " ; 




static 


char 


title4 [] 


= 


"COL: 




static 


char 


title5 [ ] 


= 


"COMMAND BUTTONS 


n • 

r 


static 


char 


buttonl [ ] 


= 


"FI Mode ” ; 


/*command button 
labels */ 


static 


char 


button2 [ ] 


= 


"F2 Add 




static 


char 


button3 [ ] 




"F3 Del " ; 




static 


char 


button4 [ ] 


= 


" F4 Chg " ; 




static 


char 


buttons [ ] 




"F5 Find 




static 


char 


button6 [ ] 


= 


"F6 Move 




static 


char 


button7 [ ] 




" F7 Load 




static 


char 


button8 [ ] 


= 


" F8 Save " ; 




static 


char 


button9 [ ] 


= 


"F9 DBMS " ; 




static 


char 


buttonlO [ 


] ! 


= " F10 Quit"; 
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static char iconl [ ] 

static char icon2 [ ] 
static char icon3 [ ] 
static char icon4 [ ] 

static char icon5[] 
static char icon6 [ ] 
static char icon7[] 



"PE"; /*icon labels-primit ive 

entity*/ 

"CE" ; /*compound entity*/ 

"A"; /*attribute element*/ 

"VA" ; /*variable attribute 

element*/ 

"F"; /*function element*/ 

n T n ; /*test element*/ 

n M ” ; /*module*/ 



float xl , yl , x2, y2; /*coordinate variables*/ 
float tx, ty; /*text coordinate variables*/ 



int 


status ; 


/* zero-normal program termination* 


int 


row, col; 


/*location of cursor on text 
screen*/ 


int 


i; 


/*loop variable*/ 


int 


color, style; 


/*color and hatchstyle*/ 


int 


mode ; 


/*graphics mode*/ 


int 


foreground; 


/*foreground color*/ 


int 


border; 


/*border color*/ 


int 


iconcolor ; 


/*display color of icon*/ 


int 


palette; 


/*palette number*/ 


int 


index; 


/*color index for EGA dev*/ 


int 


dev; 


/*type of graphics card selected*/ 


int 


height; 


/*dot text height*/ 


int 


width; 


/*dot text width*/ 


int 


path; 


/*dot text display direction*/ 


int 


textmode ; 


/*dot text display mode*/ 
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int text foreground; 



/*dot text foreground color*/ 



int textbackground; /*dot text background color*/ 



/* 



*/ 



status=0; /*normal program termination status*/ 

dev=devmenu ( ) ; /*display menu and get graphics device*/ 



if (dev==l ) 



/*set graphics device and mode*/ 



setdev (devicel ) ; /*IBM CGA device*/ 

mode=l; /*640 x 200 - 2 colors*/ 

foreground=WHITE; /*set foreground color*/ 

palette=0; /*set unused dummy value in palette*/ 

setipal (^foreground, Spalette) ; /*set IBM palette*/ 

} 

else if ( dev==2 ) 

{ 

setdev (device2) ; /*IBM generic CGA device*/ 

mode=l; /*640 x 200 - 2 colors*/ 

f oreground=WHITE ; /*set foreground color*/ 

palette=0; /*set unused dummy value in palette*/ 
setipal (&foreground, &palette) ; /*set IBM palette*/ 

} 

else if ( dev==3 ) 

{ 

setdev (device3) ; /*IBM EGA device*/ 

mode=4; /*640 x 385 - 16 colors*/ 

for(i=0; i<=15; i++) 

{ 

index=i; /*for this EGA color index...*/ 

color=i; /*this is the color.*/ 

setxpal ( &index, Scolor) ; /*set the EGA palette*/ 



} /*end for*/ 

} 

else if(dev==4) 

{ 

setdev (device4) ; 
mode=3; 
border^BLACK; 
palette=0 ; 
setipal (&border, 

} 

else if ( dev==5 ) 

{ 

clearscn ( ) ; 



/*Sigma Designs 400 device*/ 

/*640 x 400 - 16 colors*/ 

/*set border color*/ 

/*set unused dummy palette value*/ 
Spalette) ; 



/*clear the text screen*/ 
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row=0; col=0; /*upper left corner of screen*/ 

curlocate (row, col) ; /*move cursor*/ 

exit (status) ; /*terminate program*/ 

) /*end if-else*/ 

initgraphics (&mode) ; ^initialize graphics mode and 

clear the graphics screen*/ 

xl=WXMIN; yl=WYMIN; x2=WXMAX; y2=WYMAX; 

setworld ( &xl , &yl, &x 2, &y2) ; /*set world coord system*/ 



if((dev==l) || (dev==2 ) ) 

height=TEXTHT; 

else 

height=(2*TEXTHT) ; 
width=TEXTWD; 
pa th=HORI ZONTAL ; 



/*if two color mode*/ 



/*if 16 color mode*/ 

/*text width in pixels*/ 
/*text display direction*/ 



textmode=NOBORDER; /*text display mode*/ 

settext (^height, Swidth, &path, & textmode ) ; /*set 

attributes*/ 

color=WHITE ; 

setcolor ( Scolor ) ; /*set active drawing color*/ 

xl=XLLSTATUS ; y 1=YLLSTATUS ; /*low It coord of status box*/ 



x2=XURSTATUS; y2=YURSTATUS ; /*up rt coords of status box*/ 
box(&xl, &yl, &x 2, &y2) ; /*draw status box*/ 



xl=XLLROW; yl=YLLROW; 
x2=XURROW; y2=YURROW; 
box(&xl, &yl, &x2, &y2); 



/*low It coord of row box*/ 
/*up rt coords of row box*/ 
/*draw row box*/ 



xl=XLLCOL; yl=YLLCOL; 
x2=XURC0L; y2=YURCOL; 
box(&xl, &yl, &x2, &y2); 



/*low It coord of col box*/ 
/*up rt coords of col box*/ 
/*draw col box*/ 



xl=XLLCMDHDR; 
x2=XURCMDHDR; 
box(&xl, &yl. 



yl=YLLCMDHDR; 
y2=YURCMDHDR; 
&x2, &y2) ; 



/*low It coord of cmd hdr*/ 
/*up rt coords of cmd hdr*/ 
/*draw commands header*/ 



xl=XLLDIALOG; yl=YLLDIALOG; 



/*low It coord of dialog box*/ 



x2=XURD I ALOG ; y2=YURD I ALOG ; 



/*up rt coords of dialog box*/ 



box(&xl, &yl, &x2, &y2); 



/*draw dialog box*/ 
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/*if two color mode*/ 



if ( (dev==l ) || ( dev==2 ) ) 

{ 

style=DITHERED ; 
sethatchstyle (&style) ; 

} 

else 

{ 

COlor=GREY; 
setcolor (&color) ; 

} /*end if-else*/ 

xl=XLLICONS; yl=YLLICONS; 
x2=XURIC0NS; y2-YURIC0NS; 
bar ( &xl , &yl, &x 2, &y2) ; 

if((dev==3) || (dev==4 ) ) 

{ 

color=BROWN; 
setcolor (Scolor) ; 

} 

else 

{ 

style=SOLID; 
sethatchstyle (&style) ; 
Color=BLACK; 
setcolor (&color) ; 

} /*end if-else*/ 

xl=XLLBUTTONS; yl^YLLBUTTONS ; 

x2=XURBUTT0NS ; y2-YURBUTTONS ; 

bar (&xl r &yl , &x2 r &y2) ; 

color=WHITE; 
setcolor (&color) ; 

xl=XLLWORK; yl=YLLWORK; 
x2=XURW0RK; y2=YURW0RK; 
bar(&xl, &yl f &x2, &y2); 

xl=XLLPE; yl=YLLPE ; 
x2=XURPE; y2=YURPE; 
box(&xl, &yl , &x2, &y2) ; 

xl=XLLCE ; yl=YLLCE ; 
x2=XURCE; y2=YURCE; 
box(&xl, &yl^ &x 2, &y2) ; 

xl=XLLA ; yl=YLLA; 
x2=XURA; y2=YURA; 
box(&xl, &yl, &x 2 f &y2) ; 



/^creates GREY color*/ 

/*set active hatch style*/ 

/*if 16 color mode*/ 

/*set active drawing color*/ 

/*low It coord of icon area*/ 
/*up rt coords of icon area*/ 
/*draw icon area*/ 

/*if 16 color mode*/ 

/*set active drawing color*/ 
/*if two color mode*/ 

/*set active hatch style*/ 

/*set active drawing color*/ 

/*low It coords button area*/ 
/*up rt coord of button area*/ 
/*draw button area*/ 

/*set active drawing color*/ 

/*low It coord of workspace*/ 
/*up rt coords of workspace*/ 
/*draw workspace*/ 

/*low It coord of PE area*/ 
/*up rt coords of PE area*/ 
/*draw PE frame*/ 

/*low It coord of CE area*/ 
/*up rt coords of CE area*/ 
/*draw CE frame*/ 

/*low It coord of A area*/ 

/*up rt coords of A area*/ 
/*draw A frame*/ 
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xl=XLLVA; yl=YLLVA; 
x2=XURVA; y2=YURVA; 
box(&xl, &yi, &x2, &y2); 


/*low It coord of 
/ * up rt coords of 
/*draw VA frame*/ 


xl=XLLF ; yl=YLLF ; 
x2=XURF ; y2=YURF; 
box(&xl, &yl, &x2, &y2) ; 


/*low It coord of 
/*up rt coords of 
/*draw F frame*/ 


xl=XLLT ; yl=YLLT; 
x2=XURT ; y 2 =YURT ; 
box (&xl, &yl, &x2, &y2) ; 


/*low It coord of 
/*up rt coords of 
/*draw T frame*/ 


xl=XLLM; yl=YLLM; 
x2=XURM; y2=YURM; 
box(&xl, &yl, &x2, &y2); 


/*low It coord of 
/*up rt coords of 
/*draw M frame*/ 


xl=XLLF 1 ; yl=YLLF 1 ; 
x2=XURFl; y2=YURFl; 
box(&xl, &yl, &x2, &y2) ; 


/*low It coord of 
/*up rt coords of 
/*draw FI frame*/ 


xl=XLLF2; yl=YLLF2 ; 
x2=XURF2; y2=YURF2; 
box(&xl, &yl, &x 2, &y2) ; 


/*low It coord of 
/*up rt coords of 
/*draw F2 frame*/ 


xl=XLLF3 ; yl=YLLF3 ; 
x2=XURF3 ; y2=YURF3; 
box(&xl, &yl, &x 2, &y2); 


/*low It coord of 
/*up rt coords of 
/*draw F3 frame*/ 


xl=XLLF4; yl=YLLF4; 
x2=XURF 4 ; y2=YURF4; 
box(&xl, &yl, &x2, &y2); 


/*low It coord of 
/ * up rt coords of 
/*draw F 4 frame*/ 


xl=XLLF5; yl=YLLF 5 ; 
x2=XURF5 ; y2=YURF5; 
box ( &xl , &yl , &x2 , &y2) ; 


/*low It coord of 
/*up rt coords of 
/*draw F5 frame*/ 


xl=XLLF6; yl=YLLF6 ; 
x2=XURF 6 ; y2=YURF6; 
box (&xl, &yl, 6x2, &y2) ; 


/*low It coord of 
/*up rt coords of 
/*draw F6 frame*/ 


xl=XLLF7; yl=YLLF7 ; 
x2=XURF7; y2=YURF7; 
box(&xl, &yl, &x2, &y2) ; 


/*low It coord of 
/*up rt coords of 
/*draw F7 frame*/ 


xl=XLLF8 ; yl=YLLF8; 
x2=XURF8 ; y2=YURF8; 
box(&xl, &yl , &x 2, &y2); 


/*low It coord of 
/*up rt coords of 
/*draw F8 frame*/ 


xl=XLLF9 ; yl=YLLF9; 
x2=XURF9; y2=YURF9; 
box (&xl , &yl, &x2 f &y2 ) ,* 


/*low It coord of 
/*up rt coords of 
/*draw F9 frame*/ 
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VA area*/ 
VA area*/ 



F area*/ 
F area*/ 



T area*/ 
T area*/ 



M area*/ 
M area*/ 



FI button*/ 
FI button*/ 



F2 button*/ 
F2 button*/ 



F3 button*/ 
F3 button*/ 



F 4 button*/ 
F 4 button*/ 



F5 button*/ 
F5 button*/ 



F6 button*/ 
F 6 button*/ 



F7 button*/ 
F7 button*/ 



F8 button*/ 
F8 button*/ 



F9 button*/ 
F9 button*/ 



xl=XLLF10; yl=YLLF10; /*low It coord of F10 button*/ 

x2=XURF10; y2=YURF10; /*up rt coords of F10 button*/ 

box(&xl, & yl, &x2, &y2) ; /*draw F10 frame*/ 

textf oreground=WHITE ; textbackground=BLACK; / *dot text 

colors*/ 

settextclr (&textf oreground, Stextbackground) ; /*set 

colors*/ 



tx=XLLSTATUS+0 .2; ty=YLLSTATUS+0 .05; 
movtcurabs ( & tx, &ty) ; 
text (titlel ) ; 



/*text cursor coords*/ 
/*move text cursor*/ 
/*label for type of 
model*/ 



tx=XLLSTATUS+4 .0; ty=YLLSTATUS+0 .05; 
movtcurabs (&tx, &ty) ; 
text (title2 ) ; 



/*text cursor coords*/ 
/*move text cursor*/ 
/*label for name of 
model*/ 



tx=XLLROW+0 . 2 ; ty=YLLROW+0 . 1 ; 
movtcurabs (&tx, &ty) ; 
text (title3) ; 



/*text cursor coords*/ 
/*move text cursor*/ 
/*row label*/ 



tx=XLLCOL+0 . 2 ; ty=YLLCOL+0 . 1 ; 
movtcurabs (&tx, &ty) ; 
text (title4 ) ; 



/*text cursor coords*/ 
/*move text cursor*/ 
/*column label*/ 



tx=XLLCMDHDR+0 . 2 ; ty=YLLCMDHDR+0 . 05 ; 
movtcurabs (&tx, &ty) ; 
text (title5) ; 



/*text cursor coords*/ 
/*move text cursor*/ 

/* command header 
label*/ 



if((dev==3) || (dev==4 ) ) 

textbackground=BROWN; 

else 

textbackground=BLACK; 

tx=XLLFl+0 . 1; ty=YLLFl+0 . 05; 
movtcurabs (&tx, &ty) ; 
text (buttonl) ; 



/*if 16 color mode*/ 
/*if two color mode*/ 



/*text cursor coords*/ 
/*move text cursor*/ 

/ *F1 label*/ 



tx=XLLF2+0 . 1 ; ty=YLLF2+0 .05; 
movtcurabs (&tx / &ty) ; 
text (button2) ; 



/*text cursor coords*/ 
/*move text cursor*/ 

/ * F2 label*/ 



tx=XLLF3+0 .1; ty=YLLF3+0 .05; 
movtcurabs ( &tx, &ty) ; 
text (button3) ; 



/*text cursor coords*/ 
/*move text cursor*/ 

/ *F3 label*/ 



tx=XLLF 4 + 0 .1; ty=YLLF 4 + 0 . 05; 



/*text cursor coords*/ 
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movtcurabs (&tx, &ty) ; 
text (button4) ; 

tx=XLLF 5+0 . 1 ; ty=YLLF5+0 .05; 
movtcurabs (&tx, &ty) ; 
text (buttons) ; 

tx=XLLF6+0 .1; ty=YLLF6+0 . 05; 
movtcurabs ( &tx, &ty) ; 
text (button6 ) ; 

tx=XLLF7+0 . 1 ; ty=YLLF7+0 . 05 ; 
movtcurabs (&tx ; &ty) ; 
text (button7 ) ; 

tx=XLLF8+0 .1; ty-YLLF8+0 .05; 
movtcurabs (&tx, &ty) ; 
text (button8 ) ; 

tx=XLLF 9 + 0 .1; ty=YLLF9+0 .05; 
movtcurabs (&tx, &ty) ; 
text (button9 ) ; 

tx=XLLF10+0 . 1 ; ty=YLLF10+0 . 05; 
movtcurabs (&tx, &ty) ; 
text (buttonlO ) ; 

iconcolor=GREEN; 

xl=XLLPE; yl=YLLPE ; 

pe_icon(xl, yl, iconcolor) ; 



/*move text cursor*/ 

/ *F4 label*/ 

/*text cursor coords*/ 
/*move text cursor*/ 

/ *F5 label*/ 

/*text cursor coords*/ 
/*move text cursor*/ 

/ *F6 label*/ 

/*text cursor coords*/ 
/*move text cursor*/ 

/ *F7 label*/ 

/*text cursor coords*/ 
/*move text cursor*/ 

/ *F8 label*/ 

/*text cursor coords*/ 
/*move text cursor*/ 

/ *F9 label*/ 

/*text cursor coords*/ 
/*move text cursor*/ 

/ *F1 0 label*/ 

/*primitive entity is 
green*/ 

/*lower left coords of icon 
area*/ 

/*draw primitive entity*/ 



textforeground=BLACK; textbackground=iconcolor ; /*dot text 

colors */ 

settextclr (&text foreground, &textbackground) ; /*set 



tx=xl+0 . 4 ; ty=yl+0 .25; 

movtcurabs ( &tx, &ty) ; 
text (iconl ) ; 

iconcolor=BROWN; 

xl=XLLCE; yl=YLLCE ; 

ce_icon(xl, yl, iconcolor); 



colors*/ 

/*primitive entity label 
coords*/ 

/*move text cursor*/ 

/*label primitive entity*/ 

/♦compound entity is 
brown*/ 

/^lower left coords of icon 
area* / 

/♦draw compound entity*/ 



text foreground^BLACK; textbackground=iconcolor ; /*dot text 

colors*/ 

settextclr (& textf oreground, Stextbackgrcund) ; /*set 

colors*/ 
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tx=xl+0.4; ty=yl+0.25; 


/*compound entity label 
coords* / 


movtcurabs (&tx, &ty) ; 
text ( icon2 ) ; 


/*move text cursor*/ 
/*label compound entity*/ 


iconcolor=CYAN; 


/*attribute elemet is 


xl=XLLA; yl=YLLA; 


cyan*/ 

/*lower left coords of icon 
area*/ 


a icon(xl, yl, iconcolor) ; 


/*draw attribute element*/ 



textf oreground=BLACK; textbackground=iconcolor ; /*dot text 

colors*/ 



settextclr ( &textf oreground, 


&textbackground) ; /*set 

colors*/ 


tx=xl +0 .45; ty=yl+0.25; 


/*attribute element label 
coords* / 


movtcurabs (&tx, &ty) ; 
text (icon3) ; 


/*move text cursor*/ 

/*label attribute element*/ 


iconcolor=BLUE; 


/♦variable attribute is 
blue*/ 


xl=XLLVA; yl=YLLVA; 


/♦lower left coords of icon 
area*/ 


va icon(xl, yl, iconcolor); 


/♦draw variable attribute 
element* / 



text f oreground=BLACK; textbackground=iconcolor ; /*dot text 

colors*/ 



settextclr (&text foreground, 


&textbackground) ; /*set 

colors*/ 


tx=xl+0 . 4 ; ty=yl+0.25; 


/♦variable attribute label 
coords*/ 


movtcurabs ( &tx, &ty) ; 
text (icon4 ) ; 


/♦move text cursor*/ 
/♦label variable attribute 
element* / 


iconcolor=YELLOW; 


/♦function element is 


xl=XLLF ; yl=YLLF ; 


yellow*/ 

/♦lower left coords of icon 
area*/ 


f_icon(xl, yl, iconcolor); 


/♦draw function element*/ 



textf oreground=BLACK; textbackground=iconcolor ; /'*dot text 

colors*/ 



settextclr (fitextf oreground. 


&textbackground) ; /*set 

colors*/ 


tx=xl+0 .45; ty=yl+0.2; 


/♦function element label 
coords * / 


movtcurabs (&tx, &ty) ; 
text (icon5) ; 


/♦move text cursor*/ 

/♦label function element*/ 
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iconcolor=RED ; 
xl=XLLT; yl=YLLT; 

t_icon(xl, yl, iconcolor) ; 

textforeground=BLACK; 

settextclr ( & text foreground, 

tx=xl +0 .45; ty=y 1 +0 . 2 ; 

movtcurabs (&tx, &ty) ; 
text (icon6) ; 

iconcolor=MAGENTA; 
xl=XLLM; y 1=YLLM; 

m_icon(xl, yl , iconcolor); 

text f oreground=BLACK; 

settextclr {& text foreground, 

tx=xl+0 .65; ty=yl+0 ,25; 
movtcurabs (&tx, &ty) ; 
text (icon7) ; 

deltcur ( ) ; 



/*test element is red*/ 
/*lower left coords of icon 
area*/ 

/*draw test element*/ 



textbackground=iconcolor ; /*dot text 

colors*/ 

&textbackground) ; /*set 

colors*/ 

/*test element label 
coords*/ 

/*move text cursor*/ 

/*label test element*/ 

/*module is magenta*/ 
/*lower left coords of icon 
area*/ 

/*draw module icon*/ 

textbackground=iconcolor ; /*dot text 

colors*/ 

&textbackground) ; /*set 

colors*/ 

/*module label coords*/ 
/*move text cursor*/ 

/*label module*/ 

/*turn off text cursor*/ 



text for eground=WHITE; textbackground=BLACK; /*dot text 

colors*/ 

settextclr ( & textf oreground, & textbackground) ; /*set colors*/ 

xl=0 . 2 ; yl=0.35; /*coords of line 1 of dialog box*/ 

movtcurabs (&xl, &yl); /*move text cursor to line 1*/ 

} /*end scrngen */ 
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★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A* 



/* 



* 

★ 

★ 

★ 

* 



Name : 
Purpose : 

Author : 
Date : 



menu . c 

to print a menu for user to select the type of 
graphics device installed. 

David D. O'Dell 
21 December 1987 



★ 

★ 

* 

★ 

* 






devmenu ( ) 

( 

int row, col; 
screen*/ 

int dev; 



/^location of cursor on text 
/*type of graphics card selected*/ 



clear sen ( ) ; 

row=6; col=l; 

cur locate (row, col ) ; 



/*clear the text screen*/ 
/*center menu on screen*/ 
/*move cursor*/ 



print f 

("%63s\n%64s\n%64s\n%64s\n%64s\n%64s\n%64s\n%64s\n%64s\n%64s 

\n%64s", 

r 

n * ★ it 

r 

"* Select the graphics device for your system: *", 

n * * n 



1. IBM Color Graphics Adapter 

2. Generic CGA-type display card 

3. IBM Enhanced Graphics Adapter 

4. Sigma Designs Color 400 

5. Quit 



H * 



★ It 






print f ("\n\n%28s w , n Your choice?" ) ; 

scanf ( n %d n , &dev) ; /*get user's selection*/ 

while ((dev<l) || (dev>5) ) 

{ 

print f ( "Sorry, your selection must be between 1 and 
5 . \n" ) ; 

print f ( "Please re-enter your choice."); 
scanf ( "%d" , &dev) ; /*get the new selection*/ 

} /*endwhile*/ 



return (dev) ; 

( /*end devmenu*/ 
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clearscn { ) 



* Function: clear the entire text screen to background color * 

* Modified from blanksc function contained in: * 

* Radcliffe, Robert A. and Raab, Thomas J. 1986. * 

* DATA HANDLING UTILITIES IN C. Berkeley, CA. : * 

* SYBEX Inc. * 

a**************************************************************/ 



typedef char byte; 

typedef union { int i2; long int i 4 ; } INT; 

struct XREG 

{ 

short ax, bx, cx, dx, si , di ; 

In- 
struct HREG 
{ 

byte al, ah, bl, bh, cl, ch, dl, dh; 

} ; 



union REGS 

{ 

struct XREG x; 
struct HREG h; 



/* 



union REGS ir, 
ir.h.ah = 0x06; 
i r . h . a 1 = 0 ; 
ir.h.ch = 0; 
ir.h.cl = 0; 
ir.h.dh = 25; 
i r . h . dl = 80; 
ir.h.bh = 0x07; 
int8 6 (0x10, &ir 



or; 

/^interrupt number to scroll page up*/ 
/*set registers to scroll entire screen* 
/*from top left (0,0)*/ 

/*to bottom right (25,80)*/ 

/*scroll white on black*/ 

, &or) ; /*Lattice interrupt call to BIOS 



/ 



CRT*/ 



} /*end clearscn*/ 



curlocate (row, col) 
int row, col; 

/**************************************************************** 

* Function: locate cursor at row and column on text screen * 

* Modified from setcrc function contained in: * 

* Radcliffe, Robert A. and Raab, Thomas J. 1986. 

* DATA HANDLING UTILITIES IN C. Berkeley, CA . : SYBEX Inc. * 

* ★★★★★★★★★★★★★■a-*************************************************/ 



typedef char byte; 

typedef union (int i2; long int i4; } INT; 

struct XREG 

{ 

short ax, bx, cx, dx, si, di; 

}; 



struct HREG 

{ 

byte al, ah, bl, bh, cl, ch, dl, dh; 

); 

union REGS 

{ 

struct XREG x; 
struct HREG h; 

} ; 



/* 



*/ 



union REGS ir, or; 

ir.h.ah = 0x02; /^interrupt number to set cursor 

position*/ 

ir.h.bh = 0; 
ir.h.dh = row; 
ir.h.dl = col; 

int86(0xl0, &ir, &or) ; /^Lattice interrupt call to BIOS 

CRT*/ 

} /*end curlocate*/ 
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* Name: icons. c * 

* Purpose: to create the icons used by Intuition * 

* Author: David D. O'Dell * 

* Date: 16 December 1987 * 



#include "intuit. h n 
#include "exstruct . h" 



/*all icons are described in terms of world coordinates*/ 



pe_icon(x, y, iconcolor) 
float x, y; 
int iconcolor; 



/♦create primitive entity icon*/ 
/*lower left coord of icon area*/ 
/*color of icon*/ 



{ 



float xl, x2, yl, y2; 



/*coords of icon*/ 



setcolor (Siconcolor) ; 



/*set icon color*/ 



xl=x+0 . 2 ; yl=y+0.05; 
x2=x+0.8; y2=y+0.65; 
bar (&xl, &yl , &x2, &y2) ; 



/*lower left coords of 
icon*/ 

/*upper right coord of 
icon*/ 

/*draw primitive entity 
icon*/ 



iconcolor=BLACK; 
setcolor (Siconcolor) ; 
box(&xl, &yl , &x2, &y2); 



/*end pe_icon*/ 



/*change colors for 
outline*/ 

/*set outline color*/ 
/*draw outline*/ 



va_icon(x, y, iconcolor) 
float x, y; 
int iconcolor; 

{ 

float xarray [ 8 ] ; 
float yarray[8]; 
float xl , yl; 
int n; 



/*create compound entity icon*/ 
/*lower left coord of icon area*/ 
/*color of icon*/ 

/*x-coords of icon*/ 
/*y-coords of icon*/ 
/*coords of first vertex*/ 
/*number of vertices*/ 



n=8 ; 



/♦number of vertices*/ 



xarray [0] =x+0 . 6; yarray [ 0 ] =y+0 . 05; /*coords of 

vertices*/ 

xarray [ 1 ] =x+0 . 8 ; yarray [ 1 ] =y+0 .25; 
xarray [2 ] =x+0 . 8 ; yarray [2 ] =y+0 .45; 
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xarray [3] =x+0 . 6; yarray [ 3 ] =y+0 .65; 
xarray [ 4 ] =x+0 . 4 ; yarray [ 4 ] =y+0 . 65 ; 
xarray [5] =x+0 . 2; yarray [ 5] =y+0 .4 5; 
xarray [ 6 ] =x+0 . 2 ; yarray [ 6] =y+0 . 25 ; 
xarray [ 7 ] =x+0 . 4 ; yarray [ 7 ] =y+0 . 05 ; 

xl=x+0.4; yl=y+0.05; /*coord of first vertex*/ 

movabs (&xl, &yl); /*move graphics cursor to 

vertex* / 

polyfabs (xarray, yarray, &n, Siconcolor) ; /*draw 

icon*/ 



iconcolor=BLACK; 
setcolor (&iconcolor) ; 

xl=x+0.4; yl=y+0.05; 
movabs (&xl, &yl); 

polylnabs (xarray, yarr 

) 

/*end va icon*/ 



/♦change colors for outline*/ 
/*set outline color*/ 

/ *coord of first vertex*/ 
/♦move graphics cursor to 
vertex*/ 

, &n) ; /*draw outline*/ 



a_icon(x, y, iconcolor) 
float x, y; 
int iconcolor; 

( 

float xl, yl; 
float radius; 



/♦create attribute element icon*/ 
/♦lower left coord of icon area*/ 
/♦color of icon*/ 

/♦coords of circle center point*/ 
/♦radius of circle*/ 



setcolor (Siconcolor) ; 

xl=x+0 . 5; yl=y+0 .35; 
movabs (&xl, &yl); 

radius=0 .25; 
f cir (Sradius ) ; 



iconcolor=BLACK; 

setcolor (&iconcolor) ; 
cir (&radius ) ; 

} 

/♦end a_icon*/ 

t_icon (x, y, iconcolor) 

float x, y; 

int iconcolor; 

{ 

float xarray [4]; 



/♦set icon color*/ 

/♦center of circle*/ 
/♦move graphics cursor to 
center*/ 

/♦set radius of circle*/ 
/♦draw attribute element 
icon*/ 

/♦change colors for 
outline*/ 

/♦set outline color*/ 
/♦draw outline*/ 



/♦create variable attribute 
icon* / 

/♦lower left coord of icon 
area* / 

/♦color of icon*/ 

/*x-coords of icon*/ 
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float yarray [ 4 ] ; 
float xl, yl; 
int n; 

n=4 ; 

xarray [ 0 ] =x+0 . 8 ; yarray 

xarray [ 1 ] =x+0 . 5 ; yarray 
xarray [ 2 ] =x+0 . 2 ; yarray 
xarray [ 3 ] =x+0 . 5 ; yarray 



/*y-coords of icon*/ 
/*coords of first vertex*/ 
/*number of vertices*/ 

/♦number of vertices*/ 

0] =y+0.35; /*coords of 

vertices*/ 

1 ] =y+0 . 65 ; 

2 ] =y+0 . 35 ; 

3 ] =y+0 . 05 ; 



xl=x+0.5; yl=y+0.05; 
movabs (&xl, &yl) ; 

polyfabs (xarray, yarray, 



/♦coord of first vertex*/ 
/*move graphics cursor to 
vertex*/ 

&n, Siconcolor) ; /*draw 

icon*/ 



iconcolor=BLACK; 
setcolor (&iconcolor) ; 



/*change colors for 
outline*/ 

/*set outline color*/ 



xl=x+0.5; yl=y+0.05; /*coord of first vertex*/ 

movabs (&xl, &yl); /*move graphics cursor to 

vertex*/ 

polylnabs (xarray, yarray, &n) ; /*draw outline*/ 

} 

/♦end t icon*/ 



f_icon(x, y, iconcolor) 

float x, y; 

int iconcolor; 

( 

float xarray[3]; 
float yarray [3]; 
float xl, yl; 
int n; 

n=3; 



/*create function element 
icon*/ 

/♦lower left coord of icon 
area*/ 

/*color of icon*/ 

/*x-coords of icon*/ 
/*y-coords of icon*/ 
/*coords of first vertex*/ 
/♦number of vertices*/ 

/♦number of vertices*/ 



xarray [ 0 ] =x+0 . 8 ; yarray [ 0 ] =y+0 . 05 ; /*coords of 

vertices*/ 

xarray [ 1 ] =x+0 . 5 ; yarray [ 1 ] =y+0 . 65 ; 
xarray [ 2 ] =x+0 . 2 ; yarray [ 2 ] =y+0 .05; 

xl=x+0.2; yl=y+0.05; /*coord of first vertex*/ 

movabs (&xl, &yl); /♦move graphics cursor to 

vertex*/ 

polyfabs (xarray, yarray, &n, & icon ''olo r ) ; /Mraw 

icon*/ 
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iconcolor=BLACK; 



setcolor (Siconcolor) ; 



/♦change colors for 
outline*/ 

/*set outline color*/ 



/*coord of first vertex*/ 
/*move graphics cursor to 
vertex*/ 

polylnabs (xarray, yarray, &n) ; /*draw outline*/ 



xl=x+0 . 2; yl=y+0 .05; 
movabs(&xl, <&y 1 ) ; 



} 



/*end f_icon*/ 

ce_icon(x, y, iconcolor) 
float x, y; 

int iconcolor; 

{ 

float xarray[5] 
float yarray[5] 
float xl, yl; 
int n; 

n=5; 



/♦create test element icon*/ 
/♦lower left coord of icon 
area*/ 

/♦color of icon*/ 

/*x™coords of icon*/ 
/♦y-coords of icon*/ 

/♦coords of first vertex*/ 
/♦number of vertices*/ 

/♦number of vertices*/ 



xarray [ 0] =x+0 . 8 ; yarray [ 0 ] =y+0 . 05; /*coords of 

vertices*/ 

xarray [ 1 ] =x+0 . 8 ; yarray [ 1 ] =y+0 . 35; 
xarray [2 ] =x+0 . 5; yarray [ 2 ] =y+0 .65; 
xarray [ 3 ] =x+0 . 2 ; yarray [ 3] =y+0 .35; 
xarray [ 4 ] =x+0 . 2 ; yarray [4 ] =y+0 .05; 



xl=x+0 . 2 ; yl=y+0 .05; 
movabs(&xl, &yl); 



/♦coord of first vertex*/ 
/♦move graphics cursor to 
vertex*/ 

polyfabs (xarray, yarray, &n, Siconcolor) ; /*draw 

icon*/ 



iconcolor=BLACK; 
setcolor (Siconcolor) ; 



/♦change colors for 
outline*/ 

/♦set outline color*/ 



/♦coord of first vertex*/ 
/♦move graphics cursor to 
vertex*/ 

polylnabs (xarray, yarray, & n) ; /*draw outline*/ 



xl=x+0 . 2 ; yl=y+0 .05; 
movabs ( &xl , &yl ) ; 



} 



/♦end ce icon*/ 



m_icon(x, y, iconcolor) 
float x, y; 

int iconcolor; 



/♦create module icon*/ 
/♦lower left coord of icon 
area*/ 

/♦color of icon*/ 
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float xl, x2, yl, y2 ; 
setcolor (&iconcolor) ; 
xl=x+0.55; yl=y+0.05; 
x2=x+1.45; y2=y+0.65; 
bar (&xl , &yl, &x2, &y2); 

iconcolor=BLACK; 

setcolor (Siconcolor) ; 

box (&xl, &y 1 , & x 2 f &y2 ) ; 

xl*x+0 . 9; yl=y+0 . 05; 
movabs (&xl, &yl); 

x2=x+0.9; y2=y+0.65; 
lnabs ( &x2 , &y2 ) ; 



/*coords of icon*/ 

/*set icon color*/ 

/*lower left coords of 
icon*/ 

/*upper right coord of 
icon* / 

/*draw primitive entity 
icon*/ 

/*change colors for 
outline*/ 

/*set outline color*/ 

/*draw outline*/ 

/*set start of cross line*/ 
/*move graphics cursor to 
start*/ 

/*set end of cross line*/ 
/*draw cross line*/ 



} 

/*end m icon*/ 



arrow (arrowcolor) 

int arrowcolor; 

{ 

int hcolor; 
float cx, cy; 
float x, y; 
float xarray[3]; 
float yarray[3]; 
float xl, yl; 
int n; 



/*create directed arc arrow head*/ 



/*color of h-cursor*/ 
/*coords of node ctr*/ 
/*coords of arrow tip*/ 
/*x-coords of arrow*/ 
/*y-coords of arrow*/ 
/*coords of stem end*/ 
/*number of vertices*/ 



n=3 ; 



/*number of vertices*/ 



inqhcur (&cx, &cy, &hcolor) ; 

y=cy-0.55; /*set tip y-coord*/ 

if (cell [active_node] .out==l) /*set tip ::-coord + / 
x=cx; 

else if (cell [active_node] .out==2) 
x=cx-0 . 2; 

else if (cell [active_node ] .out==3) 
x=cx+0 . 2 ; 

else if (cell [active_node] .out==4) 
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x=cx- 0 . 4 ; 

else if (cell [active_node ] .out==5) 
x=cx+0 . 4 ; 

else 

{ 

x=cx; /*default*/ 

} 

setcolor (&arrowcolor) ; 

xarray [0] =x-0 . 05; yarray [ 0 ] =y-0 . 1 ; /*coords of 

vertices*/ 

xarray [ 1 ] =x+0 .05; yarray [ 1 ] =y-0 . 1 ; 
xarray[2]=x ; yarray[2]=y; 

movabs(&x, &y) ; /*move 'graphics cursor to tip*/ 

polyfabs (xarray, yarray, &n, Sarrowcolor) ; /*draw 

arrow* / 

xl=x; yl=y-0 . 2 ; 

lnabs (&xl , &yl ) ; /*draw stem*/ 



} 

/*end arrow*/ 
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y************************************************************* 



* Name: util.c * 

* Purpose: contains general purpose utility subroutines * 

* used by various programs. * 

* Author: David D. O'Dell * 

* Date: 31 December 1987 * 






#include n intuit.h n 
#include "exstruct . h" 



bigport ( ) 

j 

* Function: set viewport to full screen normalized * 

* coordinates. Do not draw border or redraw * 

* background * 

* A*******************************************************-*** j 



float xl, yl, x2, y2; 
int border; 
int background; 



/* graphic coordinate 
variables*/ 

/*flag to draw viewport 
border*/ 

/*flag for viewport 
background*/ 



xl=0.0; yl=0.0; x2=1.0; y2=1.0; /*full screen normalized 

coords* / 

border=-l ; background=-l ; /* no border or 

background*/ 

setviewport ( &xl , &yl, &x2, &y2 , &border , background) ; /*set 

viewport*/ 



xl=WXMIN; yl=WYMIN; x2=WXMAX; y2=WYMAX; 

setworld (&xl , &yl , &x2, &y2) ; /*set world coord system*/ 

} /*endbigport*/ 



littleport ( ) 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★A******************************* 

* Function: set viewport to work area only in normalized * 

* coordinates . Do not draw border or redraw * 

background * 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A*************************/ 



{ 



float xl, yl, x2, y2 ; 



/^graphic coordinate variables*/ 
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float xw, yw; 
int border; 



/*float to normal coords*/ 

/*flag to draw viewport border*/ 



int background; /*flag for viewport background*/ 

int height, width, path, textmode; /*dot text attributes*/ 
xw=XL LWORK ; yw=YLLWORK; 



/*set lower It corner of 
viewport*/ 

/*to lower It corner of work 
area*/ 

/*set upper rt corner of 
viewport* / 

/*to upper rt corner of work 
area*/ 

/*no border or background*/ 
setviewport (&xl, &yl, &x2, &y2, &border, sbackground) ; /*set 

viewport* / 



mapwton (&xw, &yw, &xl, &yl) 
xw=XURWORK ; y w=YURWORK ; 
mapwton (&xw, &yw, &x 2, &y2) 
border=-l; background=-l ; 



xl=WXMIN; yl=WYMIN; x2=WXMAX; y2=WYMAX+2 . 0 ; 

setworld (&xl , &yl, &x2, &y2); /*set world coord system*/ 



height=TEXTHT ; width=TEXTWD ; pa th=HORI ZONTAL ; 
textmode=BORDER; 

settext (&height, &width, &path, Stextmode) ; 

} /*endlittleport*/ 



char getchr (kbchar) 
char *kbchar; 

* Function: get character from keyboard without echo and * 

* return character by function and value. * 

* Modified from getchr. c contained in: * 

* Radcliffe, Robert A. and Raab, Thomas J. 1986. * 

* DATA HANDLING UTILITIES IN C. Berkeley, CA. : * 

* SYBEX Inc. * 

* ★★★★★★★★★★★★★★★★★★•a***************************************** j 



typedef char byte; 

typedef union {int i2; long int i4;} INT; 

struct XREG 

{ 

short ax, bx, cx, dx, si, di ; 

} ; 
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struct HREG 

{ 

byte al, ah, bl, bh, cl, ch, dl, dh; 

} ; 

union REGS 

{ 

struct XREG x; 
struct HREG h; 

}; 



/ 



*/ 



union REGS ir, or; 
ir.h.ah = 0x07; 
int86(0x21, &ir, &or) ; 
*kbchar = or.h.al; 
return (or . h . al) ; 

} /*end getchr*/ 



/*get character for keyboard*/ 
/ *DOS function call access*/ 
/*put character in kbchar*/ 



decode_char ( sch) 
char sch; 

* Function: check if a cursor key is pressed and update * 

* cx and cy coordinates accordingly * 



{ 

float top_edge, bottom_edge 

float left_edge, right_edge 

float button_height , button 
float hheight, hwidth; 
static float cx, cy; 
int on; 
int hcolor; 

on=0; 

button_height=YURFl-YLLFl ; 
button_width=XURFl-XLLFl ; 
hheight =button_height/2 . 0; 
hwidth=button_width/ 2.0; 

inqhcur (&cx, &cy, Shcolor) ; 



/*top and bottom cursor 
limits*/ 

/*left and right cursor 
limits*/ 
width; 

/*local cursor variables*/ 
/*button state*/ 

/*x-hair color*/ 

/*no button selected*/ 



/*get postition of ::-hair 
cursor * 
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if ( ( sch==72 ) | | ( sch==7 5 ) | | (sch==77) | | (sch==80) ) 

{ 

top_edge - YURBUTTONS-hheight ; 
bottom edge = YLLBUTTONS+hheight ; 
lef t_edge = XLLBUTTONS+hwidth; 
right_edge = XURBUTTONS-hwidth ; 



switch (sch) 

{ 

case 72: cy=cy+ (2*hheight ) ; 

if (cy>top_edge) 

cy=top_edge; 

break; 

case 75: cx=cx- (2*hwidth) ; 

if (cx<lef t_edge) 

cx=lef t_edge; 
break; 

case 77: cx=cx+ ( 2 *hwidth) ; 

if (cx>right_edge) 



/^cursor up height 
x_hair*/ 

/ * if at top edge*/ 
/*stay there*/ 

/*cursor left width 
x-hair*/ 

/*if at left edge*/ 
/*stay there*/ 

/*cursor right width 
x-hair* / 

/ * if at right edge*/ 



cx=right_edge; /*stay there*/ 
break; 

case 80: cy=cy- (2*hheight ) ; /*cursor down 

height x-hair*/ 

if (cy<bottom_edge) /*if at bottom 

edge*/ 

cy=bottom_edge; /*stay there*/ 
break; 
default: break; 



} /*endswitch*/ 



movhcurabs (&cx, &cy) ; 

delhcur(); /*don't show x-hair cursor*/ 



if (inside (cx, cy, XLLF1 , YLLF1 , XURF1, XURF1 ) ) 
on-1; 

else if (inside (cx, cy, XLLF2, YLLF2, XURF2, XURF2 ) ) 
on=2 ; 

else if (inside (cx, cy, XLLF3, YLLF3, XURF3, XURF3) ) 
on=3 ; 

else if (inside (cx, cy, XLLF4 , YLLF 4 , XURF4, XURF4 ) ) 
on=4 ; 

else if (inside (cx, cy, XLLF5, YLLF5, XURF5, XURF5) ) 
on=5; 

else if (inside (cx, cy, XLLF6, YLLF 6 , XURF 6 , XURF 6 ) ) 
on=6 ; 

else if (inside (cx, cy, XLLF7, YLLF7, :<npF7 f XUPF7 ) ) 
on=7 ; 
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else if (inside (cx, cy, XLLF8, YLLF8, XURF8, XURF8 ) ) 
on-8 ; 

else if (inside (cx, cy, XLLF9, YLLF9, XURF9, XURF9) ) 
on=9; 

else if (inside (cx, cy, XLLF10, YLLF10, XURF10, XURF10 ) ) 
on=10 ; 

else 

on=0 ; 

} /*end if sch*/ 

j ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

* Function: check if a function key has been pressed * 

* and return the corresponding value of 'on' . * 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■it****************/ 



if ( ( sch>-59) && (sch<=68) ) 

{ 

switch (sch) 

{ 

case 59: on=l; 

cx=XLLFl+hwidth; 

cy=YLLFl+hheight ; 
break; 

case 60: on=2; 

cx=XLLF2+hwidth; 

cy=YLLF2+hheight ; 
break; 

case 61: on=3; 

CX=XLLF3+hwidth; 

cy=YLLF3+hheight ; 
break; 

case 62: on=*4; 

cx=XLLF4+hwidth; 

cy=YLLF4+hheight; 

break; 

case 63: on=*5; 

cx=XLLF5+hwidth; 

cy=YLLF5+hheight ; 
break; 

case 64: on=6; 

cx-XLLF6+hwidth; 

cy=YLLF6+hheight ; 
break; 



/*position x-hair 
cursor*/ 

/*in FI button*/ 



/*position x-hair 
cursor*/ 

/*in F2 button*/ 



/*position x-hair 
cursor*/ 

/*in F3 button*/ 



/*position x-hair 
cursor*/ 

/* in F 4 button*/ 



/*position x-hair 
cursor*/ 

/*in F5 button*/ 



/*position ::-hair 
cursor*/ 

/*in F 6 button*/ 
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case 65: 



case 66: 



case 67 : 



case 68 : 



} /*end if sch*/ 



on=7 ; 

cx=XLLF7+hwidth; 

cy=YLLF7+hheight ; 

break; 

on=8 ; 

cx=XLLF8+hwidth; 

cy=YLLF8+hheight ; 

break; 

on=9; 

cx=XLLF9+hwidth; 

cy=YLLF9+hheight ; 

break; 

on=10 ; 

cx=XL L F 1 0 + hw i d t h ; 



/^position x-hair 
cursor*/ 

/*in F7 button*/ 



/*position x-hair 
cursor*/ 

/*in F8 button*/ 



/*position x-hair 
cursor*/ 

/*in F9 button*/ 



/*position x-hair 
cursor*/ 

/*in F10 button*/ 



cy=YLLF10+hheight ; 
break; 

default: on=0; 

break; 

} /*end switch*/ 

movhcurabs (&cx, &cy) ; 
delhcur ( ) ; 



return (on) ; 

) /*end decode char*/ 



int inside (x, y, xmin, ymin, xmax, ymax) 

float x,y; /*location of cursor*/ 

float xmin, ymin, xmax, ymax; /*boundries of bounding box*/ 

/*********************************************************** 

* Function: determines if (x,y) is inside bounding box * * 

determined by (xmin, ymin) - (xmax, ymax) . * 



if ( (xmin <= x) && (x <= xmax) && (ymin <= y) && (y <= ymax)) 



{ 

return (TRUE) ; 

I 

else 



{ 



return (FALSE) ; 



/*cursor is inside bounding box*/ 



/*cursor is outside bounding box*/ 
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} /*endif-else*/ 
} /*end inside*/ 



draw_submenu (title, linel, line 2, line 3, line 4, line 5, menu) 
char *title; 

char *linel, *line2, *line3, *line4, *line5; 
int *menu; 

* Function: prints submenu for selected. * 

j 

{ 

int text foreground, textbackground; /*dot text 

colors*/ 

int color; /*drawing color*/ 



float 


ulx. 


uly. 


lrx. 


lry ; 


/*coord of popup menu 












area*/ 


float 


sxl , 


sx2. 


syl. 


sy2 ; 


/*graphic coordinates*/ 


float 


S t X, 


sty; 






/*dot text coordinates*/ 



char getchr(); /*get keyboard character*/ 



def ine__dot__text ( ) ; /*set dot text attributes*/ 

text foreground=WHITE; 

textbackground=BLACK; 

settextclr ( fitext foreground, &textbackground) ; 



ulx^l.O; uly=4.1; /*upper left coord of popup*/ 

lrx=5 . 0 ; lry=2.0; /*lower right coord of popup*/ 

movef rom ( &ulx, &uly , &lrx, &lry, menu) ; /* save scrn under 

popup*/ 

color=BLACK; 
setcolor (&color) ; 
sx 1=1.0; sy 1=2.0; 
sx2=5 . 0 ; sy2=4 . 1 ; 

bar (&sxl, &syl, &sx2, &sy2) ; /*draw popup menu*/ 

color=WHITE ; 

setcolor (&color) ; 

sxl=l . 1 ; sy 1*2.1; 

sx2=4 . 9 ; sy 2=3 . 6 ; 

box (&sxl, &syl, &sx2, &sy2 ) ; 

sxl=l . 1 ; syl=3 . 7 ; 

sx2=4.9; sy2=4.0; 

box (&sxl, &syl, &sx2, &sy2) ; 

stx=2.5; sty=3.75; 
movtcurabs (&stx, &sty) ; 
text (title ) ; 



stx=1.5; sty=3.35; 
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movtcurabs (&stx, &sty) ; 
text (linel) ; 

s tx— 1 . 5; sty=3 . 05; 
movtcurabs (&stx, &sty) ; 
text ( line2 ) ; 

stx=l . 5; sty=2 . 75; 
movtcurabs (&stx, &sty) ; 
text (line3) ; 

stx=l . 5 ; sty=2.45; 
movtcurabs (&stx, &sty) ; 
text (line4) ; 

stx=1.5; sty=2.15; 
movtcurabs (&stx,&sty) ; 
text (line5) ; 

deltcur ( ) ; 

( /*end draw submenu*/ 



restore_under_menu (menu) 
int *menu; 

* Function: restore screen area under submenu. * 

********************************★******★********************/ 



float ulx, uly, Irx, lry; 
float sxl, syl, sx2, sy2; 
int mode; 
int color; 

color=WHITE; 

setcolor (Scolor) ; 

sxl=l . 0; sy 1=2 . 0; 

sx2=5 . 0 ; sy2=4 . 0 ; 

bar (&sxl, &syl, &sx2, &sy2) ; 



/*popup menu coordinates*/ 
/* graphics coordinates*/ 
/*restore mode*/ 

/*current drawing color*/ 



/*draw popup menu*/ 



ulx=1.0; uly=4.1; 
lrx=5 . 0 ; lry=2.0; 



/*upper left coord of popup*/ 
/*lower right coord of popup*/ 



mode=l; /*set restore to overwrite*/ 

moveto ( &ulx, &uly,menu, &mode) ; /*restore scrn under popup*/ 

} /*end restore under menu*/ 
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de f ine_dot_text () 

* Function: sets dot text attributes. * 

j 

{ 

int device; /*graphics device*/ 

int height, width, path, textmode; /*dot text attributes*/ 

inqdev ( &device) ; /* get device number installed*/ 

if ( (device==l) | | (device-=26) ) 
height=TEXTHT; 

else 

height= (2*TEXTHT) ; 

widt h=TEXTWD ; 
path=HORI ZONTAL; 
textmode=BORDER; 

settext (Sheight, &width, &path, Stextmode) ; 

} /*define dot text*/ 



write_error (er ror__n umber ) 

* Function: prints error message pointed to by error number * 

{ 

int dev, device; /*graphics device*/ 

int textf oreground, textbackground; /*dot text colors*/ 
float stx, sty; /*dot text coordinates*/ 

static char errorl []= 

"Sorry, selection out of range. Please re-enter 
choice. "; 

def ine__dot_text ( ) ; /* set dot text attributes*/ 

dev=inqdev (&device) ; /* get graphics device number*/ 

if ( (dev==l ) | | (dev==26) ) 

t ext f oreground=WHITE ; 

else 

text f oreground=RED ; 
textbackground-BLACK; 

settextclr ( &text foreground, &te:-:tbackground) ; 

clear__dialog_box ( ) ; 

stx=0.2; sty=0.35; 
movtcurabs (&stx, &sty) ; 
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switch (error_number) 

{ 

case 1: text (error 1 ) ; 

break; 
default: break; 

} /*end switch*/ 

} /*end write error*/ 



clear_dialog_box ( ) 

* Function: clear error statement from dialog box. * 

★★★★★★★***★*****★*★*★★★*★*★***★★**★*★***★★★*★★★★★★★*★★★★*★*★★★/ 

{ 

int color; /*drawing color*/ 

float xl , yl, x2, y2; /*graphics coordinates*/ 

color=BLACK; /*set drawing color to black*/ 

setcolor (&color) ; 

xl=XLLDIALOG+0 . 045; yl=YLLDIALOG+0 . 045; 
x2=XURDIALOG-0 . 055; y2=YURDIALOG-0 . 055; 

bar (&xl, &yl, &x2, &y2 ) ; /*overwrite dialog box*/ 

color=WHITE; 
setcolor (&color) ; 

} /*end clear dialog box*/ 



clear_status_box () 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■a* 

* Function: clear status box of all text. * 

*************************************************************/ 

{ 

int color; /*drawing color*/ 

float xl, yl, x2, y2 ; /*graphics coordinates*/ 

color=BLACK; /*set drawing color to black*/ 

setcolor (Scolor) ; 



xl=XLLSTATUS+0 .8; yl=YLLSTATUS+0 . 05; 
x2=XURSTATUS-2 .2; y2=YURSTATUS-0 . 05; 

bar (&xl, &yl, &x2, &y2) ; /^overwrite type*/ 

xl=XLLSTATUS+4 .6; yl=YLLSTATUS+0 . 05; 
x2=XURSTATUS-0 .5; y2=YURSTATUS-0 .05; 

bar (&xl, &yl, &x2, &y2) ; /^overwrite name*/ 

} /*end clear status box*/ 
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write_dialog (me s sage 1 , mess age 2 ) 
char *messagel, *message2; 

/★★★★★★★★★★★A**************************************************** 

* Function: write two line message in dialog box at bottom of * 

* screen. * 

★★★★★★★★a*******************************************************/ 

{ 

int textf oreground, textbackground; /*dot text colors*/ 

float tx, ty; /*dot text coordinates*/ 

def ine_dot_text ( ) ; /*set dot text attributes*/ 



text f oreground=WHITE ; 
textbackground=BLACK; 

settextclr ( &text foreground, & textbackground) ; 
clear_dialog_box ( ) ; 

tx=XLLD I ALOG+O . 2 ; ty— YLLDIALOG+O . 3; /*write first line*/ 

movtcurabs (&tx, &ty) ; 
text (messagel) ; 

tx=XLLD I ALOG+O . 2; ty=YLLDIALOG+0 .05; /*write second line*/ 
movtcurabs (&tx, &ty) ; 
text (message2) ; 

} /*end write dialog*/ 



getstring (string, length, tx, ty) 
char *string; 
int length; 
float *tx, *ty; 

* Function: get and print a string at specified location. * 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ j 

{ 

int text foreground, textbackground; /* dot text colors*/ 
int index; 
char ch; 

float x,y; /*dot text coordinates*/ 

index=0 ; 
x=* tx; y=*ty; 

textforeground=CYAN; 

textbackground=BLACK; 

settextclr ( & text foreground, & textbackground) ; 
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getchr (& ch) ; 



while (! (ch==OxOD) ) /*while not carriage return*/ 

{ 

if (ch==0x0D) 

{ 

ch=' \0' ; 

string [index] =ch; 
break; 

} 

else if(ch==0x08) 

{ 

text for eground=BLACK; textbackground=BLACK; 
settextclr (&text foreground, &textbackground) ; 
movtcurabs (&x, & y) ; 
text (string) ; 

— index; 
if (index<0) 

index=0; 
ch=' '; 

string [ index] =ch; 
text foregrounds YAN ; 
textbackground=BLACK; 

settextclr (& text foreground, &textbackground) ; 
movtcurabs (&x, &y) ; 
text (string) ; 

} 

else if ( (ch>=' 0' ) && (ch<=' 9' ) I I 
(ch>=' A' ) && (ch<=' Z' ) I I 
(ch>='a ; ) && (ch<=' z' ) | | 

(ch='_' ) ) 

< 

if (index>length-l ) 

{ 

index=length; 
string [ index] = ' \ 0' ; 
break; 

} 

string [ index] =ch; 
movtcurabs (&x, &y) ; 
text (string) ; 

++index; 

} /*end if-else*/ 

getchr (&ch) ; 

} /*end while*/ 

} /*end getstring*/ 
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rest_under_screen (menu) 
int *menu; 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A**************************** 

* Function: restore screen area under edit screen. * 

{ 



float ulx, uly; 
float sxl , syl, sx2, sy2; 
int mode; 
int color; 

color=WHITE; 

setcolor (&color) ; 

sxl=0 . 5 ; syl=1.0; 

sx2=5.5; sy2=4.5; 

bar (&sxl, &syl, &sx2, &sy2) ; 

ulx=0.5; uly=4.5; 

mode=l ; 



/♦popup menu coordinates*/ 
/♦graphics coordinates*/ 
/♦restore mode*/ 

/♦current drawing color*/ 



/♦draw popup menu*/ 

/♦upper left coord of popup*/ 
/♦set restore to overwrite*/ 



moveto (&ulx, &uly, menu, &mode ) ; /*restore scrn under popup*/ 
} /*end restore under screen*/ 



get_name ( ) 

* Function: gets element name and writes it below icon * 

* image in work screen. * 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A****************************/ 

{ 

static char name[8]; /*8 characters + null*/ 

static char me s sagel [] =" MANDATORY ENTRY: Enter element 

name n ; 

static char message2 [ ] =" (7 or less characters) and press 

RETURN” ; 



static char message3[]= 

"Move cursor and press p,c,a,v,f,t, or m to add an"; 
static char message4[]= 

"element or press e to add edge or <esc> to quit."; 



int i; 

int hcurclr; 
int strlength; 



/♦float variable*/ 

/*x-hair cursor color*/ 

/*# of characters in name*/ 



float cx, cy; 



/*pos of x-hair box cursor*/ 



strlength=7 ; 

for(i=0; i<= ( s trlength-2 ) ; i++) /*init name to blanks*/ 
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name [ i] =' ' ; 
name [ strlength-1 ] =' \0' ; 

inqhcur (Sex, &cy, Shcurclr ) ; 

cx=cx-0.45; cy=cy-0.45; /*put name in bottom of box*/ 



bigport ( ) ; 

write_dialog ( Smessagel, &message2) ; 
littleport ( ) ; 

ge t s t r ing ( & name f s t r length , & cx , & cy ) ; /*get name*/ 

bigport ( ) ; 

write_dialog (&message3, &message4 ) ; 
littleport ( ) ; 

element [active__node ] . ename=name ; 
cell [act ive_node] .ename=name; 

( /*end get name*/ 



get__model_name ( ) 

* Function: get name of model user will enter. * 

j 

{ 

int i; /*loop variable*/ 

int tcurclr; /*text cursor color*/ 

int textf oreground, textbackground; /*dot text colors*/ 
int strlength; /*string length*/ 

float tx, ty; /* dot text coordinates*/ 

float dtx, dty; /*position of text cursor in dialog box*/ 
static char name[ll]; 

static char messagel [ ] = n Enter the name of this model"; 
static char message2 [ ] =" ( 10 or less characters): 

strlength=10 ; 

clear__status_box() ; /*clear model type and name*/ 

for (i=0; i<= (strlength-2 ) ; i++) /*init model name to blanks*/ 
name [ i ] = ' ' ; 
name [strlength-1 ] =' \0' ; 

def ine_dot_text ( ) ; 

text for eground=YELLOW; 
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t ext background=B LACK; 

settextclr (& text foreground, &textbackground) ; 

clear_dialog_box ( ) ; 

write_dialog ( smessagel, &message2 ) ; 

inqtcur ( &dtx, &dty, &tcurclr) ; /*get text cursor position*/ 

get st ring ( &name, strlength, &dtx, &dty ) ; 

textforeground=YELLOW; 

textbackground=BLACK; 

settextclr (& textf oreground, Stextbackground) ; 
tx=XLLSTATUS+4 .7; ty=YLL STATUS +0 .05; 
movtcurabs (&tx, &ty) ; 
text (name) ; 

model_name=name ; 

deltcur(); /*turn off text cursor*/ 

clear_dialog_box ( ) ; 

} /*end get model name*/ 



init_workspace () 

{ 

int i, j , k; 



for ( i=0 ; i <=MAXNOD E S ; i=i + l) 



{ 



} 



element ( i] 
element [i ] 
element [ i ] 
element [ i ] 
element [i] 
element [i] 
element [ i ] 
element [i] 
element [i ] 
element [i] 
element [i] 
element [ i ] 
element [i ] 
element [i] 
element (i ] 
/*end for*/ 



. ename="null" ; 

• etype= n null" ; 
.dname= n null n ; 

. date_added="null" ; 
. last_mod="null" ; 

. nmods=0 ; 

. idx-"null" ; 

. idx_stmt="null" ; 

. grange="null" ; 

. grule= n null" ; 

. comment s=" null" ; 

. rtype= n null" ; 

. acc_meth="null" ; 

. f req=0 ; 

. rel_pos=0; 



for ( i=0 ; i<=MAXNODES ; i=i+l) 

{ 



/*loop variables*/ 



cell ( i ] . used=FALSE ; 
cellfi] . ename= n null" ; 
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cell[i] . nodex=0.0; 
cellti] . nodey=0.0; 
cell [ i] . out=0 ; 
cell [ i ] . in=0 ; 

for ( j=0 ; j<=MAXEDGES; j=j+l) 

{ 

for (k=0 ; k<=MAXPOINTS ; k=k+l) 

{ 

cell[i] .edgex[ j] [k]=0.0; 
cell[i] .edgey[j] [k]-0.0; 
} / *end for k*/ 

cell[i] .cnode[j]=0; 
cell[i] .cedge[j]=0; 
element [i] . elname [ j ] = n null" ; 
element [i] . eltype [ j ] ="null n ; 
element [i] . e2name [ j ] = ,, null n ; 
element [i] . e2type [ j ] ="null" ; 

} /*end for j*/ 

} /*end for i*/ 

mode l_name=" null" ; 
used_nodes=0 ; 
active_node=0 ; 

littleport ( ) ; 
clr () ; 
bigport ( ) ; 

) /*end init_workspace*/ 
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* Name: fun.c * 

* Purpose: contains functions assigned to function keys. * 

* Author: David D. O'Dell * 

* Date: 29 December 1987 * 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■AT***** j 



#include "intuit. h " 
#include "exstruct.h" 



int menu [ 12000] ; 



/♦global array to hold screen area 
under popup menus*/ 



f lmode ( ) 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a*************************** 

* Function: allows user to select between creating a genus * 

* graph, creating a module tree, or editing model* 

* paragraphs. * 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A**-*-* **★★★★★★★/ 



char ch, sch; 

/*submenu title entries*/ 
static char subtitle []=" FI MODE 
static char sublinel [ ] =" 1 . 
static char subline2 [ ] =" 2 . 
static char subline3 [ ] =" 3 . 



/♦keyboard character*/ 



Create genus graph 
Create module tree 
Edit model paragraphs 



static char subline4[]=" Enter your choice or... "; 

static char subline5[]=" Select a new command button."; 

int on; 



draw_submenu (& subtitle, & sublinel , &subline2, 

&subline3, &subline4, &subline5, &menu) ; 



getchr (&ch) ; 



if (ch==0x00 ) 

{ 

getchr (&sch) ; 
on=decode_char (sch) ; 
clear_dialog_box ( ) ; 
restore__under_menu (&menu) ; 
return (on) ; 

} 

else if ( (ch<' 1' ) | | (ch>' 3' ) ) 
write_error (1) ; 
else if (ch==' 1' ) 

{ 

restore_under_menu ( &menu) ; 
clear_dialog__box ( ) ; 
create_genus_graph ( ) ; 
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} 

else if ( ch== / 2' ) 

{ 

restore^unde r_me nu ( &menu) ; 
clear_dialog_box ( ) ; 
create_module_tree () ; 

} 

else if (ch==' 3' ) 

{ 

clear_dialog_box ( ) ; 

re s t o r e_unde r_me nu ( &me nu ) ; 

edit_model_paragraphs ( ) ; 

} /*end if-else*/ 

on=l ; 

return (on) ; 

} /*end flmode*/ 



f 2add ( ) 

* Function: allows user to add nodes or edges to a genus * 

* graph or module tree interactively in the work * 

* area. * 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A******** * ★ j 



char ch, sch; 



/^keyboard characters*/ 



/* submenu ti 


.tie entries*/ 








static 


char 


subtitle [ ] =" F2 


ADD 


M . 
t 




static 


char 


subline 1 [ ] =" 1 . 


Add 


a node 


n . 

t 


static 


char 


subline2 [ ] = n 2 . 


Add 


an edge 


m . 
r 


static 


char 


subline3 [ ] ="3 . 


Add 


a module 


n . 

f 


static 


char 


subline4 [ ] =" 






n . 
r 


static 


char 


sublineS [ ] = n Enter se 


lection. . . 


if . 
r 



int on; 



draw_submenu (& subtitle, Ssublinel , &subline2, 

&subline3, &subline4, &subline5, &menu) ; 



getchr ( &ch) ; 

if (ch==0x00 ) 

{ 

getchr (&sch) ; 
on=decode_char (sch) ; 

} /*end if 0x00*/ 

clear_dialog_box ( ) ; /*erase any error messages 4 " 
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restore_under_menu (&menu) ; 

if ( ch==' 1 ' ) 

{ 

on=2; 

add_node ( ) ; 

} 

else if (ch— ' 2' ) 

{ 

on=2 ; 

add_edge ( ) ; 

} 

else if (ch==' 3' ) 

{ 

on=2 ; 

add_module ( ) ; 

} /*end if-else*/ 

return (on) ; 

} / *end f 2add*/ 



f 3delete ( ) 

* Function: allows user to delete nodes or edges from a genus * 

* graph or module tree. * 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•A: j 

{ 

char ch, sch; /^keyboard characters*/ 

/*submenu title entries*/ 
static char subtitle [] = n F3 DELETE"; 
static char sublinel [ ] =" 1 . Delete a node 
static char subline2 [ ] ="2 . Delete an edge 
static char subline3 [ ] =" 3 . Delete a module 
static char subline4[]=" 

static char sublineS [ ] ="Enter selection... 
int on; 

draw_submenu (Ssubtitle, &sublinel, &subline2, 

&subline3, &subline4, &subline5, &menu) ; 



getchr ( &ch) ; 



if (ch==0x00 ) 

{ 

getchr ( &sch) ; 
on=decode_char (sch) ; 
} / *end if 0x00*/ 
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clear_dialog_box ( ) ; /*erase any error messages*/ 

restore_under_menu (&menu) ; 

if (ch==' 1' ) 

{ 

on=3; 

delete_node ( ) ; 

} 

else if ( ch==' 2' ) 

{ 

on=3; 

delete__edge ( ) ; 

> 

else if (ch==' 3' ) 

{ 

on=3; 

delete_module () ; 

} /*end if-else*/ 

return (on) ; 

} /*end f3delete*/ 



f 4change ( ) 

/************************************************************* 

* Function: allows user to change a node type or name in a * 

* genus graph or modular structure. * 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■AT**** y' 

{ 

char ch, sch; /^keyboard characters*/ 

/*submenu title entries*/ 

static char subtitle [] = "F4 CHANGE"; 

static char sublinel [ ] =" 1 . Change element name 

static char subline2 [ ] ="2 . Change element type 

static char subline3[]=" 

static char subline4[]=" " ; 

static char sublineS [ ] ="Enter selection... 
int on; 

draw^submenu (Ssubtitle, Ssublinel, &subline2, 

&subline3, &subline4, SsublineS, &menu) ; 



getchr (&ch) ; 

if (ch==0x00) 

{ 

getchr (&sch) ; 
on=decode_char (sch) ; 
) /*end if 0x00*/ 
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clear_dialog__box ( ) ; /*erase any error messages*/ 
restore_under_menu (Smenu) ; 

if ( ch== ' 1' ) 

( 

on=4 ; 

change_name ( ) ; 

} 

else if ( ch==' 2' ) 

( 

on=4 ; 

change_type ( ) ; 

} /*end if-else*/ 

return (on) ; 

} /*end f4change*/ 

f 5f ind ( ) 

/★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

* Function: allows user to locate a node in a genus graph or* 

* modular structure. * 

★★★★★*★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ j 
{ 

char ch, sch; /*keyboard characters*/ 

int on; 

static char messagel [ ] ="FUNCTION NOT IMPLEMENTED . " ; 
static char message2 [ ] ="Select any command to continue. n ; 

write_dialog (Smessagel, &message2) ; 

getchr (&ch) ; 

if ( ch==0x00 ) 

( 

getchr ( &sch) ; 
on=decode_char (sch) ; 

} /*end if 0x00*/ 

clear_dialog_box ( ) ; 

return (on) ; 

} /*end fSfind*/ 
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f 6move ( ) 

/**★★**★★★★*★**★*★**★**★*★★**★★★★**★*★★**★*★*****★**********★★** 

* Function: allows user to re-locate node(s) in a genus graph* 

* or modular structure. * 

*★★★★*★**★*★★***★★*★*★★★*★*★***★**★★*★★★**★★*★*★★★★***★**★★**** i 

{ 

char ch, sch; /^keyboard characters*/ 

int on; 

static char messagel [ ] =”FUNCTION NOT IMPLEMENTED.”; 
static char message2 [ ] ^"Select any command to continue."; 

write_dialog (&messagel, &message2) ; 

getchr ( &ch) ; 

if ( ch==0x00 ) 

{ 

getchr ( &sch) ; 
on=decode_char (sch) ; 

} /*end if 0x00*/ 

clear_dialog_box ( ) ; 
return (on) ; 

} /*end f6move*/ 
f 71oad ( ) 

l-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-klr-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-klr-k-k-k-k-k-k'k-k-k-k-kl'-k 

* Function: allows user to load a structured model from disk.* 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ ★ ★ ★ ★ ★ i 

{ 

char ch, sch; /*keyboard characters*/ 

int on; 

static char messagel []=" FUNCTION NOT IMPLEMENTED.”; 
static char message2 [ ] =”Select any command to continue.”; 

write_dialog (&messagel, &message2) ; 

getchr (&ch) ; 

if (ch==0x00 ) 

{ 

getchr (&sch) ; 
on=decode_char (sch) ; 

} /*end if 0x00*/ 

clear_dialog_box ( ) ; 

return (on) ; 

} /*end f71oad*/ 
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f 8save ( ) 

* Function: allows user to save a structured model to disk. * 

* ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★a-* j 

{ 

char ch, sch; /^keyboard characters*/ 

int on; 

static char messagel []=" FUNCTION NOT IMPLEMENTED."; 
static char message2 [ ] ="Select any command to continue."; 

write_dialog ( &messagel , &message2 ) ; 

getchr ( &ch) ; 

if (ch==0x00) 

{ 

getchr ( &sch) ; 
on=decode_char (sch) ; 

) /*end if 0x00*/ 

clear_dialog_box ( ) ; 

return (on) ; 

} /*end f8save*/ 

f 9dbms ( ) 

* Function: allows user to connect to a database management * 

* system. * 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ j 

{ 

static char messagel [] ="DBMS function not implemented."; 
static char message2 [ ] ^"Select any command to continue."; 
char ch, sch; 
int on; 

write_dialog ( Smessagel, &message2 ) ; 

getchr (&ch) ; 
if ( ch==0x00 ) 

( 

getchr (&sch) ; 
on=decode__char (sch) ; 

) /*end if 0x00*/ 

clear_dialog_box ( ) ; 

return (on) ; 

} /*end f9dbms*/ 
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f lOquit ( ) 

/★★★A************************************************************ 

* Function: allows user to the HALO graphics environment. * 

{ 

char ch, sch; /^keyboard characters*/ 

/^submenu title entries*/ 

static char subtitle [] ="F10 QUIT " ; 

static char subline 1 []=" 1 . Yes, I want to quit. 

static char subline2 [ ] =" 

static char subline3 [ ] ="Enter 1 to confirm quitting 
static char subline4[]=" ...or... " ; 

static char sublineS [] = " Select a new command button. 

int on; /*selected command button*/ 

draw_submenu (Ssubtitle, Ssublinel, &subline2, 

&subline3, &subline4, &subline5, &menu) ; 



getchr (&ch) ; 

if (ch==0x00 ) 

{ 

getchr (&sch) ; 
on=decode_char (sch) ; 

) /*end if 0x00*/ 

clear_dialog__box ( ) ; /*e rase any error messages*/ 

restore_under_menu ( &menu) ; 

if (ch==' 1 r ) 

( 

on=ll; 
return (on) ; 

} 

return (on) ; 

} /*end flOquit*/ 



121 



/★★★★★★****★★★★★★★★★★★★*★★*★★★★★*★★★★★****★★★★******************* 



* Name : 

* Purpose: 

* 

* Author: 

* Date: 



sfunl . c * 
contains sub-f unctions called by primary command * 
functions constained in file fun.c * 
David D. O'Dell * 
7 January 1988 * 



★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ i 



#include "intuit. h n 
#include "exstruct .h" 



create_genus_graph ( ) 



* Function: set up screen so user can enter a genus graph. * 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★A** / 

( 



char ch, sch; 

int text foreground, textbackground; /*dot text colors*/ 
float tx, ty; /*dot text coordinates*/ 

static char messagel []=" WARNING : You will erase the current 

model ! " ; 

static char message2 [ ]= n Press y to erase or <esc> to 

return . n ; 

static char graphtype [ ] = n Genus Graph n ; 

static char message3 [ ] = n Model initialized and workspace 

cleared. n ; 

static char message4 [ ] = n Select any command to continue."; 



write_dialog (Smessagel, &message2) ; 
define dot text(); 



textf oreground=YELLOW; 
textbackground=BLACK; 

settextclr ( &text foreground, Stextbackground) ; 



tx=XLLSTATUS+0 . 9 ; ty=YLLSTATUS+0 .05; 
movtcurabs (&tx, &ty) ; 
text (graphtype) ; 



deltcur ( ) ; 



getchr ( &ch) ; 
if ( ch==0x00 ) 

getchr (&sch) ; 

if ( ch==' y' ) 

( 

init_workspace ( ) ; 
get_model_name ( ) ; 

write_dialog ( &message3, &message4 ) ; 
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} 

else 

( 

clear_dialog_box ( ) ; 
return; 

} /*end if else*/ 

} /*end create genus graph*/ 



add node ( ) 
/ 




\ 

float 


xl, yl, x2, y2 ; 


float 


tx, ty; 


float 


ix, iy; 


float 


bxl, byl, bx2, by2; 


float 


hx , hy ; 


float 


hheight, hwidth; 


float 


top edge, bottom edge; 


float 


left edge, right edge; 



/*graphic coordinates*/ 

/*dot text coordinates*/ 

/*icon area coordinates*/ 
/*cell box coordinates*/ 
/*x-hair cursor coordinates*/ 
/*x-hair cursor height /width* / 



int i; /*loop variable*/ 

int hcolor; /*x-hair cursor color*/ 

int textforeground, textbackground; /*dot text color*/ 
int iconcolor; 

int color; /^current drawing color*/ 

/*keyboard characters*/ 
/*position of box cursor*/ 



color; 

char ch, sch; 
char row [2], col [2]; 
static char messagel[]= 

"Move cursor and press p, c, 
static char message2[]= 
"element or press e to add an 



i, v, f, t, or m to add an"; 
edge or <esc> to return."; 



write_dialog (Smessagel, &message2) ; 



row [ 0 ] = ' 7' ; col[0]='A'; 
row [ 1 ] =' \0' ;col [1]-' \0' ; 
tx=XLLROW+0 . 8 ; ty=YLLROW+0 . 1 ; 
movtcurabs ( & tx, &ty) ; 
text (row) ; 

tx=XLLCOL+0 . 8 ; ty=YLLCOL+0 . 1 ; 
movtcurabs (&tx, &ty) ; 
text (col ) ; 



littleport ( ) ; 



/*reset viewport area*/ 



hheight=0 . 5 ; hwidth=0 . 5 ; 
hcolor=BLACK; 

inithcur (Shheight, Shwidth, &hcolor) ; 



textf oreground=WHITE ; textbackground=BLACK; 
settextclr ( &text foreground, & textbackground ) ; 
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hx=WXMIN+0 . 5 ; hy=WYMIN+0 . 5 ; 
movhcurabs (&hx, &hy) ; 
delhcur ( ) ; 

bxl=hx-0 . 5 ; byl=hy-0.5; 
bx2=hx+0.5; by2=hy+0.5; 
rbox (&bxl, &byl, &bx2, &by2) ; 

getchr ( &ch) ; 
if (ch==0x00 ) 

getchr ( &sch) ; 

/*while not escape key*/ 

/*get postition of x-hair 
cursor*/ 



while ( ! (ch==0xlB) ) 

{ 

inqhcur (&hx, &hy, &hcolor) ; 



if ( ( sch==7 2 ) | | ( sch==7 5 ) | | (sch==77) | | ( S ch==80) ) 

{ 

top_edge = (WYMAX-f 2 . 0 ) -hheight-0 .05; 
bottom_edge = WYMIN+hheight ; 
left_edge = WXMIN+hwidth; 
right_edge = WXMAX-hwidth-0 . 05 ; 



switch (sch) 

{ 

case 72: 



case 75: 



hy=hy+ (2*hheight) ; /*cursor up 
height x_hair*/ 



if (hy>top_edge) 

hy=top_edge ; 
row[0] =row[0] -1; 
if ( row [ 0 ] <=' 1 ' ) 
row [ 0 ] =' 1' ; 
break; 

hx=hx- (2*hwidth) ; 

if (hxClef t_edge ) 

hx=left_edge; 
col [0]=col [0] -1; 
if (col [ 0 ] <=' A' ) 
col [0]=' A' ; 
break; 



/*if at top 
edge*/ 

/*stay there*/ 



/*cursor left 
width x-hair*/ 
/*if at left 
edge*/ 

/*stay there*/ 



case 77: hx=h:-:+ (2*hwidth) ; /^cursor right 

width x-hair*/ 
if (hx>right_edge) /*if at right 

edge* / 

hx=right_edge ; /*stay there*/ 
col [ 0 ] =col [ 0 ] -*- 1 ; 
if (col [0] >=' H' ) 
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case 80: 



col [ 0 ] =' H' ; 
break; 

hy=hy- (2*hheight) ; /^cursor down 

height x-hair*/ 

if (hy<bottom_edge) / *if at bottom 

edge*/ 

hy=bottom_edge ; /*stay there*/ 

row [ 0 ] =row [ 0 ] + 1 ; 
if (row [0] >- r 7' ) 
row [ 0 ] =' 7 ' ; 
break; 
default: break; 

} /*endswitch*/ 

} /*end if sch*/ 

bigport ( ) ; 

color=BLACK; 

setcolor (Scolor) ; 

xl=XLLROW+0 . 6 ; y 1=YLLROW+0 .05; 

x2=XURROW- 0 .05; y2=YURROW-0 .05; 

bar(&xl,&yl, &x2, &y2) ; 

xl=XLLCOL+0 . 6; y 1=YLLCOL+0 . 05 ; 

x2=XURCOL-0 .05; y2=YURCOL-0 .05; 

bar (&xl f &yl, &x2, &y2) ; 

color=WHITE; 

setcolor (&color) ; 

tx=XLLROW+0 . 8 ; ty=YLLROW+0 . 1 ; 

movtcurabs (&tx, &ty) ; 

text (row) ; 

tx=XLLCOL+0 . 8 ; ty=YLLCOL+0 . 1 ; 
movtcurabs (&tx, &ty) ; 
text (col) ; 
littleport ( ) ; 

movhcurabs (&hx, &hy) ; 

bxl=hx-0 . 5 ; byl=hy-0.5; /*draw cursor box*/ 
bx2=hx+0 . 5 ; by2=hy+0 . 5 ; 
delhcur ( ) ; 

rbox (&bxl, &byl, &bx2, &by2) ; 



if (ch==' p' | l ch==' c' | | ch-=' a' | | ch==' v' | | ch==' t' ! I ch==' f ' I I ch=='m' ) 
{ 



inqhcur(&hx, &hy, Shcolor) ; /*get ctr coords of 

node* / 



for(i=0; i<=used_nodes+l ; i=i4) 

{ 



125 



if (i>MAXNODES) 

{ 

write_error (2 ) ; 
break; 

} 

else if (cell [i] .used != TRUE) 

{ 

active_node=i ; 

cell [ i ] . used=TRUE; /*mark cell 

used* / 

cell ( used_nodes ] . nodex=hx; /*update 

structure*/ 

cell [used_nodes ] . nodey=hy; 
used_nodes=used_nodes+l ; 
break; 

) /*end if else*/ 

} /*end for*/ 

} /*end if p etc.*/ 



switch (ch) 

( 

case 'p': iconcolor=GREEN; 

ix=hx-0.5; iy=hy-0.2; 
pe_icon(ix, iy, iconcolor); 
get_name ( ) ; 

element [active_node ] . etype="pe" ; 
cell [active_node] . etype="pe"; 
movhcurabs (&hx, &hy) ; 

bxl=hx-0.5; byl=hy-0.5; /*draw cursor 

box*/ 

bx2=hx+0.5; by2=hy+0.5; 
delhcur ( ) ; 

rbox (&bxl, &byl, &bx2, &by2) ; 
break; 

case ' c' : iconcolor=BROWN; 

ix=hx-0 . 5 ; iy=hy-0.2; 
ce_icon(ix, iy, iconcolor); 
get_name ( ) ; 

element [active_node ] . etype="ce" ; 
cell [active_node] . etype="ce " ; 
movhcurabs (&hx, &hy) ; 



bxl=hx-0.5; byl=hy-0.5; /*draw cursor 

box*/ 

bx2=hx+0 . 5 ; by2=hy+0.5; 
delhcur ( ) ; 

rbox (&bxl, &byl, &bx2, &by2) ; 
break; 

case 'a': iconcolor=CYAN; 

ix=hx-0 . 5 ; iy=hy-0 . ? ; 
a_icon(ix, iy, iconcolor); 
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get_name ( ) ; 

element [active_node ] . etype= ,, a f1 ; 
cell [active_node ] . etype= M a n ; 
movhcurabs (&hx, &hy) ; 

bxl=hx-0.5; byl=hy-0.5; /*draw cursor 

box*/ 

bx2=hx+0 . 5 ; by2=hy+0 . 5 ; 
delhcur ( ) ; 

rbox ( &bxl, &byl, &bx2, &by2) ; 
break; 

case 'v': iconcolor=BLUE; 

ix=hx-0 . 5 ; iy=hy-0 . 2 ; 
va_icon(ix, iy, iconcolor) ; 
get_name ( ) ; 

element [active_node ] . etype="va" ; 
cell [active_node] . etype= n va" ; 
movhcurabs (&hx, &hy) ; 

bxl=hx-0.5; byl=hy-0.5; /*draw cursor 

box* / 

bx2=hx+0 . 5; by2=hy+0 . 5; 
delhcur ( ) ; 

rbox (&bxl, &by 1 , &bx2, &by2) ; 
break; 

case ' f ' : iconcolor=YELLOW; 

ix=hx-0 . 5 ; iy=hy-0.2; 
f_icon(ix, iy, iconcolor); 
get_name ( ) ; 

element [ active_node ) . etype="f " ; 
cell [active_node ] .etype= n f"; 
movhcurabs (&hx, &hy) ; 

bxl=hx-0.5; byl=hy-0.5; /*draw cursor 

box*/ 

bx2=hx+0 . 5 ; by2=hy+0 . 5 ; 
delhcur ( ) ; 

rbox ( &bxl, &byl , &bx2 , &by2 ) ; 
break; 

case 't': iconcolor=RED ; 

ix=hx-0.5; iy=hy-0.2; 
t_icon(ix, iy, iconcolor); 
get_name ( ) ; 

element [active_node ] .etype= n t n ; 
cell [active_node] .etype= n t n ; 
movhcurabs (&hx, &hy) ; 

bxl=hx-0 . 5 ; byl=hy-0.5; /*draw cursor 

bo;:*/ 

bx2=hx+0. 5; by2=hyt0. 5; 
delhcur ( ) ; 

rbox (&bxl, &byl, &b:-:2, &by2) ; 
break; 

case 'm' ; iconcolor^MAGENTA; 

ix=hx- 1 . 0 ; iy=hy-0 . 2 ; 
m_icon(ix, iy, iconcolor); 
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get_name ( ) ; 

element [active_node ] . etype= n m n ; 
cell [active_node] .etype="m"; 
movhcurabs (&hx, &hy) ; 

bxl=hx-0.5; byl=hy-0.5; /^draw cursor 

box*/ 

bx2=hx+0.5; by2=hy+0.5; 
delhcur ( ) ; 

rbox (&bxl, &byl, &bx2, &by2) ; 
break; 

default: break; 

} /*end switch */ 

if (ch==' e' ) 
break; 

iconcolor=WHITE; 
setcolor (Siconcolor) ; 

sch=0x00 ; 

getchr (&ch) ; 
if (ch==0x00) 

getchr ( &sch) ; 



} /*end while*/ 

delbox(); /*delete current rubber band 

box*/ 

bigport ( ) ; 

clear_dialog_box ( ) ; 

if ( ch==' e ' ) 

add_edge ( ) ; 

} /*end add node*/ 



add_edge ( ) 

{ 

float hheight, hwidth; 
float xl , yl, x2, y2; 
float cx, cy; 
float tx, ty; 

coordinates*/ 
float bxl, byl, bx2, by2 ; 
float top_edge, bottom_edge ; 
float left_edge / right_edge; 



/*size of x-hair cursor*/ 
/*graphic coordinates*/ 
/*x-hair coordinates*/ 
/*text cursor 

/*cell box coordinates*/ 
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float lx, ly; 



/ ^coordinates of line's 



int i; 
int turn; 



fixed end*/ 

/*loop variable*/ 
/*number of turns in an 



int color; 
int gcolor; 



edge*/ 

/*drawing color*/ 
/*color of graphics 



int hcolor; 
int line; 



cursor*/ 

/*color of x-hair cursor*/ 
/*toggle to draw/not draw 



char ch, sch; 

char row [2], col [2 ]; 



line*/ 

/*keyboard characters*/ 
/*position of box cursor*/ 



static char messagel[]= 

"Move cursor to calling node and press return."; 
static char message2[]= 

"Or press n to add node or <esc> to return. "; 
static char message3[]= 

"Move cursor and press t to turn or e to end edge."; 
static char message4 []=" "; 

write_dialog (&messagel, &r..issage2) ; 

turn=0; 

row [ 0 ] =' 7 ' ; col[0]='A'; 
row[l]=' \0' ;col [1]=' \ 0' ; 
tx=XLLROW+0 . 8 ; ty=YLLROW+0 . 1 ; 
movtcurabs (&tx, &ty) ; 
text (row) ; 

tx=XLLCOL+0 . 8 ; ty=YLLCOL+0 . 1 ; 
movtcurabs (&tx, &ty) ; 
text (col ) ; 

ch='-'; line=FALSE ; /*init to move line, don't draw it*/ 

littleport ( ) ; 

hheight=0 . 5; hwidth=0 . 5; 
hcolOr=BLACK; 

inithcur (&hheight, &hwidth, &hcolor) ; 

cx=WXMIN+0 . 5; cy=WYMIN+0 . 5 ; /*start cursor in lower left*/ 
movhcurabs (&cx, &cy ) ; /*corner of drawing area*/ 

delhcur ( ) ; 

bxl=cx-0.5; byl=cy-0.5; 
bx2=cx+0 . 5; by2=cy+0 . 5; 
rbox (&bxl, &byl, &bx2, &by2) ; 

getchr (&ch) ; 
if (ch==0x00 ) 
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getchr (&sch) ; 



while (! (ch==OxlB) ) /*while not escape key */ 

{ 

inqhcur (&cx, &cy, &hcolor ) ; /*get position of x-hair 

cursor*/ 



if ( (sch==72) | | ( sch==7 5 ) | | (sch==77) | | (sch==80) ) 



top_edge = (WYMAX+2 . 0 ) -hheight-0 . 05 ; 
bottom_edge = WYMIN+hheight ; 
left_edge = WXMIN+hwidth; 
right_edge = WXMAX-hwidth-0 . 05 ; 



switch (sch) 

{ 

case 72: 



case 75: 



case 77 : 



case 80: 



cy=cy+ (2*hheight ) ; 

if (cy>top__edge ) 

cy=top_edge; 
row [ 0 ] =row [ 0 ] - 1 ; 
if ( row [ 0 ] <=' 1 ' ) 
row [ 0 ] =' 1 ' ; 
break; 

cx=cx- (2*hwidth) ; 

if (cx<lef t__edge) 

cx=lef t_edge; 
col [0 ] =col [0] -1; 
if (col ( 0 ] <=' A' ) 
col [ 0 ] =' A' ; 
break; 

cx=cx+ (2*hwidth) ; 

if (cx>right_edge ) 

cx=right_edge ; 
col [0]=col [0]+l; 
if (col [0 ] >=' H' ) 
col [0]='H' ; 
break; 

cy=cy- (2*hheight) ; 
if (cy<bottom_edge ) 
cy=bo 1 1 om_e dge 



/^cursor up 
height x_hair*/ 
/*if at top 
edge*/ 

/*stay there*/ 



/*cursor left 
width x-hair*/ 

/ *i f at left 
edge*/ 

/*stay there*/ 



/*cursor right 
width x-hair*/ 
/*if at right 
edge*/ 

/*stay there*/ 



/*cursor down 
height x-hair*/ 
/*if at bottom 
edge*/ 

; /*stay there*/ 



row [ 0 ] =row [ 0 ] +1 ; 
i f ( row [ 0 ] >=' 7 ' ) 
row [ 0 ] =' 7 ' ; 
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break; 
default: break; 

} /*endswitch*/ 

} /*end if sch*/ 

bigport ( ) ; 

col or =B LACK; 

setcolor (&color) ; 

xl=XLLROW+0 . 6; yl=YLLROW+0 .05; 

x 2 = X URROW - 0 .05; y2=YURROW-0 .05; 

bar (&x 1 , &yl , &x2, &y2) ; 

xl=XLLCOL+0 . 6; yl=YLLCOL+0 . 05; 

x2=XURCOL-0 .05; y2=YURCOL-0 .05; 

bar(&xl,&yl,&x2,&y2) ; 

color=WHITE; 

setcolor (&color) ; 

tx»XLLROW+0 . 8 ; ty=YLLROW+0 . 1 ; 

movtcurabs (&tx, &ty) ; 

text (row) ; 

tx=XLLCOL+0 . 8 ; ty=YLLCOL+0 . 1 ; 
movtcurabs (&tx, &ty) ; 
text (col ) ; 
littleport ( ) ; 

movhcurabs (&cx, &cy) ; 

bxl=cx-0.5; byl=cy-0.5; /*draw cursor box*/ 
bx2=cx+0 . 5 ; by2=cy+0 . 5 ; 
delhcur ( ) ; 

rbox ( &bxl , &by 1 , &bx2 , &by2 ) ; 



if (ch==0x0D) 

{ 

bigport (); /*change viewports and*/ 

color=BLACK; /*write prompts*/ 

setcolor (&color) ; 

write_dialog (&message3, &message4 ) ; 
littleport () ; /*change viewports and*/ 

movhcurabs (&cx, &cy) ; /*reposition cursor*/ 
delhcur ( ) ; 

if ( line==FALSE ) 

{ 

inqhcur (&cx, &cy) ; 

for(i=0; i<=used_nodes ; i=i+l) 

{ 

if (i>MAXNODES) 

{ 

write_error (2) ; 
break; 

} 



131 



else 

if ( (cell [ i ] . nodex==CK) && (cell [ i ] . nodey==cy ) ) 

{ 

acti ve_node=i ; 

cell [ active_node ] . out=cell [active__node ] .out+1; 

if (cell [active_node] . out>MAXEDGES ) 

{ 

write_error (2) ; 
break; 

} / *end if cell . out>MAXEDGES*/ 
Color=BLACK; 

arrow (color ) ; /*draw arrow head*/ 
inqgcur (&lx, &ly, &gcolor) ; 
movabs (&lx, &ly) ; 

line=TRUE; /*fixed end of line*/ 

cell [active_node ] . edgex [ cell [active__node ] .out] [BEGIN]=lx; 

cell [active_node ] . edgey [ cell [ act ive_node ] .out] [BEGIN] =ly; 

inqhcur (&cx, &cy, &hcolor) ; 
bxl=cx-0 . 5; byl=cy-0 . 5; 
bx2=cx+0 . 5 ; by2=cy+0 . 5 ; 
rbox (&bxl, &byl, &bx2, &by2) ; 

/*delete box cursor*/ 
movhcurabs (&cx, &cy) ; 

/*draw h-cursor*/ 

element [active_node] . rtype= n calls n ; 

element [active_node] . elname [ cell [active_node] .out]= 
cell [act ive_node] .ename; 

element [active_node] . eltype [ cell [active_node ] .out]= 
cell [active_node] .etype; 

break; 

) /*end if else*/ 

} /*end for i*/ 

} /*end if line is false*/ 

while <line==TRUE) 



sch=0x00; 
getchr (&ch) ; 
if (ch==0x00 ) 

getchr (&sch) ; 



if ( ( sch==7 2 ) | | ( sch==7 5 ) | | (sch==77) | | (sch==80) ) 

{ 

top_edge = (WYMAX+2 . 0 ) -hheight-0 . 05 ; 
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bottom_edge = WYMIN+hheight ; 
left_edge = WXMIN+hwidth; 
right_edge = WXMAX-hwidth-0 . 05 ; 

switch (sch) 



case 72: 



case 75: 



case 77: 



case 80: 



default : 



cy=cy+ (2*hheight) ; 
if (cy>top_edge) 
cy=top_edge ; 
break; 

cx=cx- (2*hwidth) ; 
if (cx<lef t_edge ) 
cx=le f t_edge ; 
break; 

cx=cx+ (2*hwidth) ; 
if (cx>right_edge ) 
cx=right_edge ; 
break; 

cy=cy- (2*hheight) ; 

if (cy<bottom_edge) 

cy=bottom_edge; 

break; 

line-FALSE; 

break; 



} / *endswitch*/ 

} /*end if sch*/ 



if (ch==' t ' ) 

{ 

turn-turn+1 ; 
if (turn>3) 

{ 

write_error (2) ; 
break; 



} 

color=BLACK; 
setcolor (Scolor) ; 
delhcur ( ) ; 

lx=cx; ly=cy; /*draw line from fixed 
end*/ 



lnabs (&lx, &ly ) ; 
line=TRUE ; 



/*x-hair cursor 
position*/ 



cell [active_node] . edgex [cell [active_node ] .out] [turn]=lx; 
cell [ act ive_node ] . edgey [cell [active_node ] .out] [turn]=ly; 

} /*end if ch==t*/ 
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if (ch==' e' ) 

( 

color=BLACK; 
setcolor (&color) ; 
deihcur ( ) ; 

1 x=cx; ly=cy+0.55; /*draw line from 

fixed end*/ 

lnabs (&lx, &ly) ; /*x-hair cursor 

position*/ 

line=FALSE; 

cell [active^node ] . edgex [ cell [ act ive_node ] .out] [END]=lx; 
cell [active_node ] . edgey [cell [act ive_node ] .out] [ END ] =ly ; 

for (i=l; i<=used_nodes ; i=i+l) 

if ( (cell [i] .nodex==cx) && (cell [i] ,nodey==cy) ) ; 

( 

cell[i] . cnode [cell [active_node] . out ] =active_node ; 

cell[i] . cedge [cell [active_node] . out ] =cell [active_node ] .out; 

element[i] . e2name [cell [i ] .in]=cell[i] .ename; 

element[i] . e2type [cell [i ] .in]=cell[i] .etype; 

} 

} /*end for*/ 

} /*end if ch=e*/ 

movhcurabs (&cx, &cy) ; 

} /*end while line is true*/ 

} /*end if return*/ 

turn=0; /*reset turns in edges to zero*/ 

sch=0x00 ; 

getchr (&ch) ; 
if (ch==0x00) 

getchr ( &sch) ; 

if (ch==' n' ) 
break; 

} /*end while*/ 

bigport ( ) ; 

if (ch==' n' ) 
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add node ( ) ; 



} /*end add edge*/ 



change_name ( ) 

( 

float xl, yl , x2 , y2 ; 

float bxl, byl, bx2, by2; 

float ex, cy; 

float hheight, hwidth; 

float top_edge, bottom_edge; 

float lef t_edge, right_edge ; 

int i; 

int hcolor; 

int color; 

char ch, sch; 

static char messagel[]= 

"Move cursor to desired node 
static char message2[]=" 



/^graphic coordinates*/ 
/*cell box coordinates*/ 
/*x-hair cursor coordinates*/ 
/*x-hair cursor height/width* / 

/*loop variable*/ 
/*x-hair cursor color*/ 
/*current drawing color*/ 
/*keyboard characters*/ 

and press return."; 



write_dialog (Smessagel, &message2 ) ; 

littleport ( ) ; /*reset viewport area*/ 

hheight=0 . 5; hwidth=0.5; 
hcolor=BLACK; 

initheur (&hheight, &hwidth, Shcolor) ; 



cx=WXMIN+0 . 5 ; cy=WYMIN+0 . 5 ; 
movheurabs (&cx, &cy) ; 
delhcur ( ) ; 



bxl=cx-0.5; byl=cy-0.5; 
bx2=cx+0 . 5; by2=cy+0 . 5; 
rbox ( &bxl , &byl , &bx2 , &by2 ) ; 

getchr (&ch) ; 
if (ch==0x00 ) 

getchr (&sch) ; 

/*while not escape key*/ 

/*get postition of x-hair 
cursor* / 



while ( ! (ch==0xlB) ) 

( 

inqhcur (&cx, &cy, &hcolor) ; 



if ( ( sch— 72 ) | | (sch==7 5 ) | | (sch==77) | | (sch==80) ) 

{ 
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top_edge = (WYMAX+2 . 0 ) -hheight ; 
bottom_edge = WYMIN+ hheight ; 
left_edge - WXMIN+hwidth; 
right_edge = WXMAX-hwidth-0 . 05; 



switch (sch) 

{ 

case 72: 



case 75: 



case 77: 



case 80: 



cy=cy+ (2*hheight) ; /^cursor up 

height x_hai r * / 
/*if at top 
edge*/ 

/♦stay there*/ 

/♦cursor left 
width x-hair*/ 
/*if at left 
edge*/ 

/♦stay there*/ 

/♦cursor right 
width x-hair*/ 
/♦if at right 
edge*/ 

cx=right_edge; /*stay there*/ 
break; 

cy=cy- (2*hheight ) ; /*cursor down 

height x-hair*/ 

if (cy<bottom_edge) /*if at bottom 

edge*/ 

cy=bottom_edge; /*stay there*/ 



if (cy>top_edge) 

cy=top_edge; 

break; 

cx=cx- (2*hwidth) ; 

if (cxClef t_edge) 

cx=lef t_edge; 
break; 

cx=cx+ (2*hwidth) ; 
if (cx>right_edge) 



break; 
default: break; 



} /*endswitch*/ 



} /*end if sch*/ 



movhcurabs (&cx, &cy) ; 

bxl=cx-0.5; byl=cy-0.5; /*draw cursor box*/ 
bx2=cx+0 . 5 ; by2=cy+0 . 5 ; 
delhcur ( ) ; 

rbox (&bxl, &byl, &bx2, &by2) ; 

if(ch==0x0D) /*if return*/ 

{ 

inqhcur (&cx, &cy, Shcolor) ; 

for(i=0; i<=used_nodes ; i=i+l) 

{ 

if ( (cell [ i ] . node::==c::) (cell ( i ] . nodey==cy) ) 
active node=i; 
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} /*end for*/ 



color=WHITE ; 
set color (& color ) ; 

xl=cx-0.45; yl=cy-0.45; /*delete old name*/ 
x2=cx+0.45; y2=cy-0.25; 
bar (&xl, &yl, & x 2 , & y 2 ) ; 

get^nameO; /*get new name*/ 

} /*end if ch=return*/ 



sch=0x00 ; 

getchr (&ch) ; 
if ( ch==0x00 ) 

getchr ( &sch) ; 

} /*end while*/ 

delboxO; /*delete current rubber band box*/ 

bigport ( ) ; 

} /*end change__name*/ 



change__type ( ) 

{ 

float xl, yl, x2, y2; 

float ix, iy; 

float bxl, byl, bx2, by2; 

float cx, cy; 

float hheight, hwidth; 

float top_edge, bottom_edge; 

float left_edge, right__edge; 

int hcolor; 

int color; 

int iconcolor; 

char ch, sch; 



/ 



/*graphic 
/*icon area 
/*cell box 
/*x-hair cursor 
*x-hair cursor 



coordinates*/ 
coordinates*/ 
coordinates*/ 
coordinates*/ 
height /width*/ 



/*x-hair cursor color*/ 
/*current drawing color*/ 
/♦current icon color*/ 
/♦keyboard characters*/ 



littleport ( ) ; 



/♦reset viewport area*/ 



hheight=0 . 5; hwidth=0 . 5; 
hcolor=BLACK; 

inithcur (Shheight, Shwidth, &hcolor ) ; 



cx— WXMIN+0 . 5 ; cy=WYMIN+0 . 5 ; 
movhcurabs (&cx, &cy) ; 
delhcur ( ) ; 
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bxl=cx-0.5; byl=cy-0.5; 
bx2=cx+0 . 5 ; by2=cy+0 . 5 ; 
rbox (&bxl , &byl , &bx2, &by2 ) ; 

getchr (&ch) ; 
if (ch==0x00 ) 

getchr (&sch) ; 

/♦while not escape key*/ 

/*get postition of x-hair 
cursor*/ 



while { ! (ch==0xlB) ) 

{ 

inqhcur (&cx, &cy, Shcolor) ; 



if ( ( sch==7 2 ) | | (sch==75) | | ( sch==77 ) | | (sch==80) ) 

{ 

top_edge = (WYMAX+2 . 0) -hheight ; 
bottom_edge = WYMIN+hheight ; 
lef t_edge - WXMIN+hwidth; 
right_edge = WXMAX-hwidth-0 . 05; 



switch (sch) 

{ 

case 72: 



case 75: 



case 77 : 



cy=cy+ (2*hheight) ; 

if (cy>top_edge) 

cy=top_edge; 

break; 

cx=cx- (2*hwidth) ; 

if (cxClef t_edge) 

cx=left_edge; 

break; 

cx=cx+ (2*hwidth) ; 

if (cx>right_edge) 

cx=right_edge ; 
break; 



/*cursor up 
height x_hair*/ 
/*if at top 
edge*/ 

/*stay there*/ 

/♦cursor left 
width x-hair*/ 
/*if at left 
edge*/ 

/♦stay there*/ 

/♦cursor right 
width x-hair*/ 
/*if at right 
edge*/ 

/♦stay there*/ 



case 80: cy=cy- (2*hheight ) ; /*cursor down 

height x-hair*/ 

if (cy<bottom_edge ) /*if at bottom 

edcj0 * / 

cy=bottom_edge; /*stay there*/ 

break; 
default: break; 



} / *endswitch*/ 

} /*end if sch*/ 
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movhcurabs (&cx, & cy) ; 

bxl=cx-0.5; byl=cy-0.5; /*draw cursor box*/ 
bx2=cx+0 . 5 ; by2=cy+0 . 5 ; 
delhcur ( ) ; 

rbox (&bxl, &byl, &bx2, &by2) ; 



if (ch==' t' ) 

{ 

jetchr <&ch) ; 

inqhcur (&cx, &cy) ; 

color^WHITE; 
setcolor (&color) ; 

xl=cx-0.45; yl=cy-0.2; /*draw cursor box*/ 
x2=cx+0 .45; y2= s cy+0 .45; 
bar ( & x 1 , &yl , &x2 , &y2) ; 



switch (ch) 

{ 

case ' p' : 



case ' c' : 



case ' a' : 



iconcolor=GREEN; 
ix=cx-0 . 5; iy=cy-0 . 2 ; 
pe___icon (ix, iy, iconcolor); 
break; 

iconcolor=BROWN; 
ix=cx-0.5; iy=cy-0.2; 
ce_icon(ix, iy, iconcolor) ; 
break; 

iconcolor=CYAN; 
ix=cx-0 . 5; iy=cy-0 . 2 ; 



a_icon(ix, iy, iconcolor); 
break; 

case r v' : iconcolor=BLUE; 



} 



case ' f ' : 



case ' t ' : 



case 'm' : 



default : 
/*end switch 



ix=cx-0 . 5; iy=cy-0 . 2 ; 
va_icon(ix, iy, iconcolor); 
break; 

iconcolor=YELLOW; 
ix=cx-0.5; iy=cy-0.2; 
f__icon(ix, iy, iconcolor); 
break; 

iconcolor=RED ; 
ix=cx-0 . 5; iy=cy-0 . 2; 
t_icon(ix, iy, iconcolor); 
break; 

iconcolor=MAGENTA; 
ix=cx-0 . 5 ; iy=cy-0 . 2 ; 
m_icon(ix, iy, iconcolor) ; 
break; 
break; 

*/ 



) /*end if ch=t*/ 
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sch=OxOO; 



getchr (&ch) ; 
if (ch== 0x00 ) 

getchr (&sch) ; 

} /*end while*/ 

delbox(); /*delete current rubber band box*/ 

bigport ( ) ; 

} /*end change__type*/ 
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/ 



★★★★★★★★A***************************************************** 



* Name : 

* Purpose: 

* 

* Author: 

* Date: 



sfun2.c * 
contains sub-f unctions called by primary command * 
functions constained in file fun.c * 
David D. O'Dell * 
7 January 1988 * 



**************************************************************/ 



#include "intuit . h" 
#include "exstruct . h" 



create_module_tree ( ) 

{ 

char ch, sch; 
int on; 

static char messagel [ ] ="FUNCTION NOT IMPLEMENTED."; 
static char message2 [ ] ="Press any key to continue."; 

write_dialog ( Smessagel , &message2) ; 

getchr (&ch) ; 

if (ch==0x00 ) 

( 

getchr (&sch) ; 
on=decode_char (sch) ; 

) /*end if 0x00*/ 

clear_dialog_box ( ) ; 

return (on) ; 

) /*end creat module tree*/ 



edit_model_paragraphs ( ) 

{ 

char ch, sch; /*keyboard characters*/ 

int record; 

int segment; 

int address; 

int on; 

int color; 

float xl,yl,x2, y2; 

buf 32 (^segment) ; 
address=segment*12; 

imsave ( &address ) ; /*save screen to memory*/ 

color=BLACK; 
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setcolor (Scolor) ; 
clr () ; 



/*clear entire screen to BLACK*/ 



color=*RED; 
setcolor (&color) ; 

xl=0.1, yl=0 . 1 , x2=WXMAX-0 . 1 ; y2=WYMAX-0 . 1 ; 

box ( & xl , &yl , &x2 , &y2 ) ; 

xl=0 . 1 ; yl=WYMAX-0. 5; 

movabs (&xl, &yl) ; 

x2=WXMAX-0 . 1; y2=WYMAX-0 . 5; 

lnabs (&x2, &y2 ) ; 

xl=0 . 1 ; yl=0 . 5 ; 

movabs (&xl, &yl) ; 

x2=WXMAX-0. 1; y2=0.5; 

lnabs ( &x 2 , &y2 ) ; 

record=act ive_node ; 

curlocate ( 1 , 6) ; 

printf ( "MODEL NAME: %-12s" , model_name ) ; 

curlocate (1,56) ; 

printf ("RECORD NUMBER: %-4d" , record) ; 

curlocate (3,2) ; 

printf ( "Name : %-12s " , element [record] . ename ) ; 

curlocate (3,34) ; 

print f ( "Description : %-30s" , element [ record] . dname) ; 

curlocate (4,2) ; 

printf ( "Type : %-8s " , element [record] . etype) ; 

curlocate (5,2); 

printf ("Date Added: %-7s ", element [ record] . date_added) ; 

curlocate (5, 34) ; 

printf ("Last Modified: %-7s ", element [ record] . last__mod) ; 

curlocate (5,59) ; 

printf ( "Number Mods: %-5d" , element [ record] . nmods ) ; 

curlocate (7,2) ; 

printf ("Index: %-4s", element [record] . idx) ; 

curlocate (7, 34) ; 

print f ( "Generic Range : %-20s" , element [record] . grange ) ; 

curlocate (8,2) ; 

printf ("Index Statement: %-58s" , element [record] ,idx_stmt) 

curlocate (11,2) ; 

printf ( "Generic Rule: %-61s ", element [ record] . grule ) ; 

curlocate (14,2) ; 

printf ( "Comments : %-65s" , element [record] . comments ) ; 

curlocate (17,2) ; 

printf ( "Relationship Type : %-8s" , element [ record] . rtype ) ; 
curlocate (17,31); 

printf ("Edge 1: %-12s called by 

%-12s" , element [ record] . e2name [ 1 ] , 

e 1 erne nt [ r e co r d ] .el name [ 1 ] ) ; 

curlocate (18, 31) ; 

printf ("Edge 2: s-12s called by 
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%-12s", element [record] . e2name [2 ] , 
element [record] .elname [2] ) ; 

curlocate (19, 31) ; 

printf( n Edge 3: %-12s called by 

%-12s", element [record] .e2name [3] , 
element [record] . elname [3] ) ; 

curlocate (20,2) ; 

print f ( "Relative Position: %-8d" , element [ record] . rel_pos ) 

curlocate (20, 31) ; 

printf( n Edge 4: %-12s called by 

%-12s n , element [record] . e2name [ 4 ] , 
element [ record] . elname [ 4 ] ) ; 

curlocate (21, 31) ; 

printf ("Edge 5: %-12s called by 

%-12s” , element [record] . e2name [ 5 ] , 
e lement [ record] . elname [ 5] ) ; 

curlocate (23, 8) ; 

printf("[+] Next [-] Previous [e] Edit [f] find"); 

printf( n [s] Save [r] Return”); 



getchr <&ch) ; 
if (ch==0x00) 

{ 

getchr (&sch) ; 
on=decode_char (sch) ; 

} /*end if 0x00*/ 

while (! (ch==0xlB) ) /*while not escape*/ 

{ 

if ( ch==' + ' ) 

{ 

record=record+l ; 
if ( r e co r d==MAXNOD E S ) 
record=0; 
curlocate (1, 70) ; 
printf ( n %-4d", record) ; 
curlocate (3,9); 

printf ("%-12s”, element [record] . ename) ; 
curlocate (3,48); 

printf ("%-30s", element [record] . dname) ; 
curlocate (4,9); 

printf ("%-8s", element [record] .etype) ; 
curlocate (5,15) ; 

printf ("%-7s”, element [record] .date_added) ; 
curlocate (5, 50) ; 

printf ( 11 %-7s" , element [ record] . last_mod) ; 
curlocate (5, 73) ; 

printf ( ” %-5d" , element [ record] . nmods ) ; 
curlocate (7,10) ; 

printf ( ”%-4s” , element [ record] . idx) ; 
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curlocate (7,50) ; 

print f ("%-20s", element [record] . grange) ; 
curlocate (8,20) ; 

printf ("%-58s", element [record] . idx_stmt) ; 
curlocate (11, 17) ; 

printf ( ” %-6ls", element [record] . grule) ; 
curlocate (14, 13) ; 

printf ( "%-65s" , element [record] . comments) ; 
curlocate (17, 21) ; 

printf ("%-8s" , element [record] . rtype) ; 

curlocate (17, 40) ; 

printf (" %-12s called by 

%-12s n , element [ record] . e2name [ 1 ] , 
element [ record] . elname [ 1 ] ) ; 
curlocate (18, 40) ; 
printf ( n %-12s called by 

%-12s n , element [record] . e2name [2] , 
element [ record] . elname [2 ] ) ; 
curlocate (19, 40) ; 
printf ( n %-l2s called by 

%-12s n , element [ record] . e 2 name [ 3] , 
element [record] . elname [3] ) ; 
curlocate ( 20 , 21 ) ; 

printf ( " %-8d" , element [record] . rel_pos ) ; 

curlocate (20, 40) ; 

printf (" %-l2s called by 

%-12s " , element [ record] . e2name [ 4 ] , 
element [ record] . elname [4 ] ) ; 
curlocate (21, 40) ; 
printf ( n %-12s called by 

% -12s ”, element [ record] . e 2 name [ 5] , 
element [record] . elname [ 5 ] ) ; 



} 

else if ( ch==' ) 

{ 

record=record-l; 
if (record<0) 

record=MAXNODES-l; 
curlocate (1,70) ; 
printf (" %-4d", record) ; 

curlocate (3,9) ; 

printf ("%-l2s", element [record] . ename) ; 
curlocate (3,48) ; 

printf ( " %-30s " , element [record] . dname ) ; 
curlocate (4,9); 

printf ( n %-8s n , element [record] . etype) ; 
curlocate (5, 15) ; 

printf ( "%-7s n , element [ record] . date_added) ; 
curlocate (5,50) ; 

printf ( " %-7s n , element [record] . last_mod) ; 
curlocate (5,73) ; 
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print f ( "%-5d" , element [ record] . nmods ) ; 
curlocate (7 , 10) ; 

print f ( n %-4s" , element [record] . idx) ; 
curlocate (7 , 50) ; 

print f ( n %-20s n , element [record] .grange) ; 
curlocate (8, 20) ; 

printf ( n %-58s n , element [record] . idx_stmt ) ; 
curlocate (11, 17) ; 

printf ("%-61s n , element [record] . grule) ; 
curlocate (14, 13) ; 

printf ("%-65s n , element [record] .comments) ; 
curlocate (17,21) ; 

printf ( n %-8s n , element [ record] . rtype) ; 

curlocate (17, 40) ; 

printf ( n %-12s called by 

%-12s", element [record] .e2name [1] , 
element [ record] . elname [ 1 ] ) ; 
curlocate (18, 40) ; 
printf ( n %-12s called by 

%-12s " , element [record] . e2name [ 2 ] , 
element [ record] . elname [ 2 ] ) ; 
curlocate (19,40); 
printf ( n %-12s called by 

%-12s n , element [record] .e2name [3] , 
element [ record] . elname [ 3 ] ) ; 
curlocate (20,21) ; 

printf ( n %-8d n , element [record] . rel_pos) ; 

curlocate (20, 40) ; 

printf (" %-12s called by 

%-12s", element [record] . e 2 name [4 ] , 
element [ record] . elname [ 4 ] ) ; 
curlocate (21, 40) ; 
printf ( n %-12s called by 

%-12s", element [record] .e2name [5] , 
element [record] . elname [ 5] ) ; 



} 

else if (ch==' f ' ) 

( 

curlocate (23, 8) ; 

printf ("Find not implemented--press any key to 
continue . n ) ; 
getchr (&ch) ; 
curlocate (23,8); 

printf ( n [ + ] Ne:*:t [-] Previous [e] Edit [f] 
find") ; 

printf ( n [s] Save [r] Return") ; 

} 

else if(ch=='s') 

( 

curlocate (23,8); 
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print f("Save not implemented--press any key to 
continue . " ) ; 
getchr ( &ch) ; 
curlocate (23, 8) ; 

printf (" [ + ] Next [-] Previous [e] Edit [f] 
find") ; 

printf(" [s] Save [r] Return"); 

} 

else if (ch==' e' ) 

{ 

curlocate (23, 8 ) ; 

print f ( "<TAB> to move between fields, <ESC> to 
exit editing."); 

getchr (&ch) ; 

if (ch=0x00) 

getchr (&sch) ; 

while (! (ch==0xlB) ) /*while not escape*/ 

( 

curlocate (3,33) ; 
printf ( ">" ) ; 
getchr ( &ch) ; 

if (ch=0x00) 

getchr (&sch) ; 
if (ch==0xlB) 
break; 

else if ( ! (sch==0x0F) ) /*if not tab*/ 

( 

curlocate (3.48) ; /* description*/ 

scanf ("%s n , element [record] . dname) ; 

) /*end if else*/ 

curlocate (5,1); 
printf ( ">" ) ; 
getchr (&ch) ; 

if (ch=0x00) 

getchr (&sch) ; 
if (ch==0xlB) 
break; 

else if ( ! (sch==0x0F) ) /*if not tab*/ 

{ 

curlocate (5, 15) ; /*date added*/ 

scanf ("%s", element [record] .date_added) 
} /*end if else*/ 

curlocate (5, 33) ; 
printf ( ">" ) ; 
getchr ( &ch) ; 

if (ch=0x00 ) 

getchr (&sch) ; 
if ( ch==0::lB ) 
break ; 
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/ * if not tab*/ 



else if(! (sch==0x0F) ) 

{ 

curlocate (5, 50) ; /*last mod*/ 

scanf ( "%s", element [record] .last_mod) ; 

) /*end if else*/ 

curlocate (5, 58) ; 
printf ( ">" ) ; 
getchr ( &ch) ; 

if (ch^OxOO) 

getchr (&sch) ; 
if ( C h==0xlB) 
break; 

else if ( ! ( sch==0x0F) ) /*if not tab*/ 

{ 

curlocate (5, 73) ; /*num mods*/ 

scanf ( "%s" , element [ record] . nmods ) ; 

) /*end if else*/ 

curlocate (7,1) ; 
printf ( ">" ) ; 
getchr ( &ch) ; 

if (ch=0x00) 

getchr (&sch) ; 
if (ch==0xlB) 
break; 

else if ( ! (sch==0x0F) ) /*if not tab*/ 

( 

curlocate ( 7, 9) ; /*index*/ 

scanf ( n %s" , element [record] . idx) ; 

} /*end if else*/ 

curlocate (7,33); 
printf ( ">" ) ; 
getchr (&ch) ; 

if (ch=0x00) 

getchr ( &sch) ; 
if (ch==0xlB) 
break; 

else if ( ! (sch=0x0F) ) /*if not tab*/ 

{ 

curlocate ( 7, 50 ) ; /*generic range*/ 

scanf ( M %s n , element [record] .grange) ; 

} /*end if else*/ 

curlocate (8,1) ; 
printf ( ">" ) ; 
getchr (&ch) ; 

if (ch=0x00 ) 

getchr (&sch) ; 
if (ch==0xlB) 
break; 
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/*if not tab*/ 



else if ( ! (sch==0x0F) ) 

{ 

curlocate (8 , 20 ) ; /*index statement*/ 

scanf ( "%s " , element [ record] . idx_stmt ) ; 

} /*end if else*/ 

curlocate (11, 1) ; 
print f ( ">" ) ; 
getchr (&ch) ; 

if <ch=0x00) 

getchr ( &sch) ; 
if (ch==0xlB) 
break; 

else if ( ! (sch==0x0F) ) /*if not tab*/ 

{ 

curlocate (11, 17) ; /*generic rule*/ 

scanf ( "%s" , element [ record] . grule) ; 

} /*end if else*/ 

curlocate (14,1); 
printf ( ">" ) ; 
getchr ( &ch) ; 

if (ch=0x00) 

getchr (&sch) ; 
if (ch==0xlB) 
break; 

else if ( ! (sch==0x0F) ) /*if not tab*/ 

{ 

curlocate ( 14 , 13 ) ; /*comments*/ 

scanf ( n %s n , element [ record] . comments ) ; 

) /*end if else*/ 

} /*end while not escape*/ 

curlocate (23, 8) ; 

printf ( n [ + ] Next [-] Previous [e] Edit [f] 
find” ) ; 

printf (" [s] Save [r] Return") ; 

} /*end if ch=e*/ 
else if ( ch==' r ' ) 

{ 

break; 

} /*end if else*/ 

getchr (&ch) ; 
if (ch==0x00 ) 

( 

getchr (&sch) ; 
on=decode_char (sch) ; 

} / *end if 0x00*/ 
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} /*end while not escape*/ 



imrest (Saddress ) ; /*restore screen from memory*/ 
on=l ; 

return (on) ; 

} /*end edit model paragraphs*/ 



add_module ( ) 

{ 

char ec- 
static char messagel []="FUNCTION NOT IMPLEMENTED."; 
static char message2 [ ] ="Press any key to continue. M ; 

write__dialog ( Smessagel , &message2 ) ; 

getchr (&ch) ; 

clear_dialog_box ( ) ; 



} 



delete_node ( ) 

{ 

float xl , yl, x2, y2; 
float bxl, byl, bx2, by2; 

float cx, cy; 

float hheight, hwidth; 

float top_edge, bottom_edge; 

float left_edge, right_edge; 

int hcolor; 

int color; 

char ch, sch; 

static char messagel [] ="Move 
delete node."; 
static char message2 [ ] ="Or p 



/*graphic coordinates*/ 
/*cell box coordinates*/ 

/*x-hair cursor coordinates*/ 
/*x-hair cursor height /width* / 

/*x-hair cursor color*/ 
/*current drawing color*/ 
/*keyboard characters*/ 
cursor and press return to 

ess <esc> to return."; 



write^dialog (Smessagel, &message2) ; 

litt leport ( ) ; /*reset viewport area*/ 



hheight=0.5; hwidth=0.5; 
hcolor=BLACK; 

initheur (Shheight, Shwidth, Shcolor) ; 
cx=WXMIN+0 . 5 ; cy=WYMIN+0 . 5 ; 
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movhcurabs (&cx, &cy) ; 
del hour ( ) ; 



bxl=cx-0.5; byl=cy-0.5; 
bx2-cx+0.5; by2=cy+0.5; 
rbox (&bxl, &byl, &bx2, &by2 ) ; 

getchr (&ch) ; 
if (ch-=0x00 ) 

getchr (&sch) ; 

/*while not escape key*/ 

/*get postition of x-hair 
cursor*/ 



while ( ! (ch==0xlB) ) 

{ 

inqhcur ( &cx, &cy, Shcolor ) ; 



if ( (sch==72) | | (sch==75) | | (sch==77) | | (sch==80 ) ) 

{ 

top_edge = (WYMAX+2 . 0 ) -hheight ; 
bottom_edge = WYMIN+hheight ; 
lef t_edge = WXMIN+hwidth; 
right_edge = WXMAX-hwidth-0 . 05 ; 



switch (sch) 

{ 

case 72: 



case 75: 



case 77: 



case 80: 



cy=cy+ (2*hheight) ; /*cursor up 

height x_hair*/ 

if (cy>top_edge ) /*if at top 

edge*/ 

cy=top_edge; /*stay there*/ 
break; 

cx-cx- (2*hwidth) ; /*cursor left 

width x-hair*/ 



if (cx<left_edge) /*if at left 

edge*/ 

cx=left_edge; /*stay there*/ 
break; 

cx=cx+ (2*hwidth) ; /*cursor right 

width x-hair*/ 
if (cx>right_edge) /*if at 

right edge*/ 

cx=right_edge; /*stay there*/ 
break; 

cy=cy- (2*hheight ) ; /*cursor down 

height x-hair*/ 

if ( cy<bottom_edge ) /*if at bottom 

e dge * / 

cy=bottom_edge ; /*stay there*/ 



break; 
default: break; 
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} /*endswitch*/ 



} /*end if sch*/ 
movhcurabs (Sex, &cy) ; 

bxl=cx-0.5; byl=cy-0.5; /*draw cursor box*/ 
bx2=cx+0 . 5; by2=cy+0 . 5; 
deiheur ( ) ; 

rbox ( &bxl , &byl , &bx2, &by2 ) ; 



if (ch==0x0D ) 



/*if return*/ 



inqhcur (&cx, &cy) ; 

color=WHITE; 
setcolor (Scoior) ; 

xl=cx-0 .45; yl=cy-0.45; /*draw cursor box*/ 
x2=cx+0.45; y2=cy+0.45; 
bar (&xl, &yl f &x2, &y2) ; 

} /*end if ch=d*/ 



sch=0x00 ; 



getchr (&ch) ; 
if (ch==0x00 ) 

getchr ( &sch) ; 

} /*end while*/ 

deibox(); /*deiete current rubber band box*/ 

bigport { ) ; 
clear_dialog__box ( ) ; 

} /*end delete node*/ 



delete_edge ( ) 

{ 

char ch; 

static char mess agel [] =" FUNCTION NOT IMPLEMENTED . n ; 
static char message2 [ ] ="Press any key to continue. n ; 

write_dialog (fimessagel, &message2 ) ; 

getchr ( &ch) ; 

clear_dialog_box ( ) ; 



> 
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delete_module () 

{ 

char ec- 
static char messagel [ ] = M FUNCTION NOT IMPLEMENTED, 
static char message2 [ ] ="Press any key to continue 

write_dialog (Smessagel, &message2) ; 

getchr (&ch) ; 

clear_dia!og_box () ; 
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1: 



INTRODUCTION 



Welcome to INTUITION, a graphics-based program that allows 
you to generate sophisticated model representations directly 
on the computer screen and to transform these representations 
to a database form for subsequent manipulation and solution. 
INTUITION assumes that you are familiar with the concept of 
Structured Modeling and makes no attempt to "teach" this 
concept itself. Otherwise, the functions of INTUITION are 
sufficiently simple to master with a few minutes of practice. 
The program is totally self-prompting and menu-driven. We 
have tried to make it work in an manner that is both obvious 
and intuitive (hence the name) . Normally, what you expect to 
happen will happen; but, if something does go wrong, the 
program will identify the error and tell you what to do to 
fix it. You do not need to read the user's manual from cover 
to cover in order to use the program. In fact, you would 
find much of the reading duplicative. The user's manual is 
intended as a reference manual, so when you look up a 
particular topic, all of the information for using that 
function is contained within that section. You don't have to 
go on a scavenger hunt to find out what you need to know. 
So, with that in mind, let's begin.... 
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2: SYSTEM REQUIREMENTS 



HARDWARE : 

An IBM PC (XT or AT) or compatible with at least one 
disk drive. 

A monitor capable of resolving, at a minimum, 640 x 
200 pixels. 



SOFTWARE : 

An INTUITION (V 1.1) program disk. 

HALO Graphics Library (specifically, the graphics driver 
for your particular computer) . If not previously 
installed, the appropriate driver must be copied to the 
INTUITION program disk. 

ORACLE Relational Database Management System (RDBMS) for 
IBM PC/MS-DOS 



MEMORY ; 

The program will run minimally in 640K of memory. For 
effective operation, expanded memory of 1M or more is 
recommended. (This does not consider the memory needed 
to run the ORACLE RDBMS. Consult your ORACLE User's 
Guide to determine the RDBMS's memory requirements.) 



OPERATING SYSTEM : 

IBM PC DOS or MSDOS (Release 2.0 or later) . 



GRAPHIC DISPLAY CARDS : 

IBM Color Graphics Adapter (CGA) 
Generic CGA work-alikes 
IBM Enhanced Graphics Adapter (EGA) 
Sigma Designs Color 400 



POINTING DEVICES : 

Keyboard cursor keys (default) 

Microsoft or compatible mouse (optional) 
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3 : GETTING STARTED 



POWER UP : 

Ensure that the appropriate graphics driver has been 
copied to the INTUITION program disk. (If using a mouse, 
ensure that the mouse driver has also been copied.) 

Insert the INTUITION program disk in drive A: and type 
int to invoke the program. An initial menu screen will 
quickly appear. Enter the number of the graphics device 
that matches your equipment configuration and press 
return. The main program will then be loaded. 



THE OPENING SCREEN : 

Shortly you will be presented with an opening screen 
similar to Figure 1 . This screen consists of five 
windows : 

At the top of the screen is the status window. 

This shows the type and name of the current 
model . 

The window on the top right contains the 
geometric shapes used to draw the structured 
models . 

The window on the bottom right contains the 
command buttons available in the program. 

The window at the bottom of the screen is the 

dialog area. Prompts and error messages will 
always appear here. 

The white center area is the workspace for 

drawing the structured model. 



THE DRAWING ELEMENTS : 

Each icon on the right side of the screen represents 
different type of element in the structured model. 

PE represents a primitive entity element and 
is a green square. 

CE represents a compound entity element and is a 
brown octagon . 



156 



NRr-e : 



CWORKAREA) 



(DIALOG AREA^ 



R OUU- 


CZOL: 




RE 




r^i 


( R ) 


Ice J 


A 

Z. \ 


<"t\ 

\ 1 

V 




N-1 






COMMAND BUTTONS 


F IMODE 


fsmove 


F2RDO 


F7LORD 


F3DEL 


F8SRVE 


FNCHG 


FOCLR 


F5FIND 


FIOQUIT 



Figure 1: Main Screen 



A represents an attribute element and is a 
cyan circle. 

VA represents a variable attribute element and 
is a blue trapezoid. 

F represents a function element and is a 
yellow triangle. 

T represents a test element and is a red 
diamond. 

M represents a module and is a magenta 
rectangle . 



(In monochrome mode, all icons are white with a black 
border . ) 
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THE COMMAND BUTTONS: 



All program functions are initiated by choosing the 
appropriate command button. The selected button is 
highlighted. Only one command can be selected at a 
time. Commands are chosen by pressing the appropriate 
function key (e.g. fl function key selects FIMode) , by 
moving the highlight with the cursor keys, or by 
clicking on the desired command with the left mouse 
button. Commands may be selected in any order. (When 

using the cursor keys to move to a specific command, all 
intervening command buttons are rapidly selected and 
deselected. This can be disconcerting at times. For 
this reason, using the function keys and/or mouse to 
select commands is recommended.) Some commands produce 
submenus, providing additional choices. Simply follow 
the appropriate prompts when presented with a submenu. 



HOW TO USE YOUR POINTING DEVICE : 

The primary purposes of a pointing device are to move 
the various "cursors" around the screen, to draw on the 
screen, and to select icons and commands from the menus. 

The default pointing device is the keyboard cursor keys. 
To access these keys, the numeric keypad must be in 
"cursor mode." If your computer prints numeric digits 
on the screen when you press a cursor key, press the 
"num lock" key once to exit "numeric mode." Then 
pressing the cursor keys will move the cursor either 
horizontally or vertically. 

A Microsoft compatible mouse may also be used as an 
optional pointing device in future versions of the 
program. Ensure that the mouse is connected to the 
computer (normally through the serial port) and that the 
appropriate HALO graphics mouse driver is on the program 
disk. To move the cursor, simply move the mouse in the 
direction you want the cursor to move. To select or 
drag an object, click (press) the left mouse button. 
To release or place an object, click the right mouse- 
button. (If you have a three button mouse, the middle 
button is currently unused.) 



158 



CREATING A MODEL 



SELECTING THE PROGRAM MODE : 

The program will display the FIMode submenu: 

The program will prompt you to enter a model name. 
The name must be 10 or less characters long. If 
you attempt to enter more than 10 characters, only 
the first 10 will be accepted and the program will 
automatically continue from this point. Valid 
names can contain any combination of letters, 
digits or underscores. End names of less than 10 
characters by pressing the return key. 

Press 1 to enter a genus graph. The program 

prepares the drawing area and data structures to 
accept a new genus graph. WARNING: SELECTING THIS 

OPTION DESTROYS ANY PREVIOUS GENUS GRAPH IN THE 
DRAWING AREA. 

Press 2 to enter a modular tree. The program 

prepares the drawing area and data structures to 

accept a new genus graph. WARNING: SELECTING THIS 

OPTION DESTROYS ANY PREVIOUS MODULAR TREE IN THE 
DRAWING AREA. 

Press 3 to edit module or genus paragraphs. The 
program will display the paragraph editing screen. 
You can scroll through the model paragraphs by 
using the + and - keys. You can move from field 
to field in a specific paragraph by using the left 
and right cursor keys. You can edit any field 
except genus name, module name, genus type, and 
calling sequence. These fields can only be 

modified by changing the appropriate genus graph or 
module tree. The cursor will not enter one of 
these fields on the edit screen. Press the escape 
key to exit editing mode. This will return you to 
the initial display screen. 



ADDING ELEMENTS TO THE MODEL : 

Select the F2Add command button by either pressing the 
f2 function key, clicking on the F2Add command with the 
left mouse button, or moving the highlight to F2Add with 
the cursor keys. The program will display the F2Add 
submenu : 
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Press 1 to add an element to the genus graph. 

A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high. 

To enter an element, move the box cursor to 
the desired location and press the first 
letter of the element type (i.e., p, c, a, v, 
f, t or m) or click on the element icon with 
the left mouse button. The appropriate icon 
will be drawn inside the box cursor. 

The program will then prompt you to enter an 
element name. Names must be seven or less 
characters long. If you attempt to enter more 
than seven characters, only the first seven 
will be accepted and the program will auto- 
matically continue from this point. Valid 
genus names must be unique and must begin with 
a letter. The remainder of the name may 
contain any combination of letters, digits or 
underscores. End names of less than seven 

characters by pressing the return key. 

ELEMENT NAMES ARE MANDATORY ENTRIES. YOU CANNOT 

CONTINUE UNTIL YOU ENTER A VALID ELEMENT NAME. 

You can now move the box cursor to enter 
another element or: 

press e to add an edge; 
press m to add a module; 

press the escape key to return to the 
F2Add submenu. 

To return to adding nodes after adding edges 
and/or modules, simply press n. You can 
repeatedly cycle between adding nodes, edges, 
or modules by pressing the n, e, or m keys. 

Press 2 to add an edge (directed arc) to the genus 
graph or an undirected arc to a modular tree. 

A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high. 
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To draw an edge, move the box cursor to the 
calling element and press the return key. The 
program will automatically draw the "arrow" 
end of a directed arc below the element icon 
in a genus graph. Or it will begin an undi- 
rected arc to the left side of a modular icon 
in a modular tree. 

The box cursor will change to a cross-hair 
cursor. Move the cross-hair cursor (with the 
cursor keys or mouse) to the called element 
and press e for end. The edge will be drawn. 
(Note: When using the cursor keys to draw an 

edge, you can only move the cursor horizon- 
tally or vertically; however , the actual edge 
will be a straight line directly from the 
beginning point to the end point. It will NOT 
be a series of vertical and horizontal lines 
following the cursor path.) 

Sometimes, when an edge is drawn directly 
between two elements, if will cross an inter- 
vening element. To prevent this, an edge can 
contain up to three turns. To turn an edge, 
press t for turn. The completed edge segment 
will be drawn. You can then continue the edge 
in any direction. This allows you to draw 
"around corners." 

You can now move the box cursor to enter 
another edge or: 

press n to add a node; 

press m to add a module; 

press the escape key to return to the 
F2Add submenu. 

To return to adding edges after adding nodes 
and/or modules, simply press e. You can 

repeatedly cycle between adding nodes, edges, 
or modules by pressing the n, e, or m keys. 

Press 3 to add a module to the module tree or 

genus graph. 

A rectangular cursor will appear in the lower 
left corner of the drawing area. Move the 

cursor with the cursor keys or mouse. It 

will move within a grid eight blocks wide by 
seven blocks high. 
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To enter a module, move the rectangular cursor 
to the desired location and press m or click 
the left mouse button. The module icon will be 
drawn inside the rectangular cursor. 

The program will then prompt you to enter an 
module name. Names must be seven or less 
characters long. If you attempt to enter more 
than seven characters, only the first seven 
will be accepted and the program will auto- 
matically continue from this point. Valid 
module names must be unique and must begin 
with a capital M and underline character (M_) . 
The remainder of the name may contain any 
combination of letters, digits or underscores. 
End names of less than seven characters by 
pressing the return key. MODULE NAMES ARE 
MANDATORY ENTRIES. YOU CANNOT CONTINUE UNTIL 
YOU ENTER A VALID MODULE NAME. 

You can now move the rectangular cursor to 
enter another module or: 

press e to add an edge; 

press n to add a node (in genus graphs 
only) ; 

press the escape key to return to the 
F2Add submenu. 

To return to adding modules after adding edges 
and/or nodes, simply press m. You can repeat- 
edly cycle between adding nodes, edges, or 
modules by pressing the n, e, or m keys. 



DELETING ELEMENTS FROM THE MODEL : 

Select the F3Del command button by either pressing the 
f3 function key, clicking on the F3Del command with 
the left mouse button, or moving the highlight to F3Del 
with the cursor keys. The program will display the 
F3Del submemu: 

Press 1 to delete an element from a genus graph. 

A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high. To delete an element, move the 
box cursor to the desired location and press 
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return for node or click the left mouse 
button. The element icon, element name, and 

all arcs into and out of the element will be 
deleted . 

You can now move the box cursor to delete 
another element or: 

press e to delete an edge; 
press m to delete a module; 
press the escape key to return to the 
F3Del submenu. 

To return to deleting nodes after deleting 
edges and/or modules, simply press n. You can 
repeatedly cycle between deleting nodes, 
edges, or modules by pressing the n, e, or m 
keys . 

Press 2 to delete an edge (directed arc) from a 
genus graph or an undirected arc from a modular 
tree . 



A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high. 

To delete an edge, move the box cursor to the 
calling element and press the return key. The 
box cursor will change to a cross-hair cursor. 
Move the cross-hair cursor inside the arrow 
head of the arc to be deleted and press the 
return key. The arc will be deleted. 

You can now move the box cursor to delete 
another edge or: 

press n to delete a node; 
press m to delete a module; 
press the escape key to return to the 
F3Del submenu. 

To return to deleting edges after deleting 
nodes and/or modules, simply press e. You can 
repeatedly cycle between deleting nodes, 
edges, or modules by pressing the n, e, or m 
keys . 

Press 3 to delete a module from a module tree or 
genus graph. 
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A box cursor will appear in the lower left 
corner of the drawing area. Hove the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high. 

To delete a module, move the box cursor to the 
desired location and press m for module or 
click the left mouse button. The module icon, 
module name, and all arcs into and out of the 
module will be deleted. 

You can now move the rectangular cursor to 
delete another element or: 

press e to delete an edge; 
press n to delete a node; 

press the escape key to return to the 
F3Del submenu. 

To return to deleting modules after deleting 
edges and/or nodes, simply press m. You 
can repeatedly cycle between deleting nodes, 
edges, or modules by pressing the n, e, or m 
keys . 



CHANGE ELEMENT NAMES OR TYPES : 

Select the F4Chg command button by either pressing the 
f 4 function key, clicking on the F4Chg command with the 
left mouse button, or moving the highlight to F4Chg with 
the cursor keys. The program will display the F4Chg 
submenu : 

Press 1 to change an element name on the genus 
graph . 



A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high. 

To change an element name, move the box cursor 
to the desired location and press c for change 
or click the left mouse button. The old name 
will be erased and the program will prompt you 
to enter a new element name. Names must be 
seven or less characters long. If you attempt 
to enter more than seven characters, only the 
first seven will be accepted and the program 
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will automatically continue from this point. 
Valid genus names must be unique and must 
begin with a letter. The remainder of the 
name may contain any combination of letters, 
digits or underscores. End names of less than 
seven characters by pressing the return key. 
ELEMENT NAMES ARE MANDATORY ENTRIES. YOU 
CANNOT CONTINUE UNTIL YOU ENTER A VALID 
ELEMENT NAME . 

You can now move the box cursor to change 
another element name or press the escape Jcey 
to return to the F4Chg submenu. 

Press 2 to change an element type on the genus 
graph . 

A box cursor will appear in the lower left 
corner of the drawing area. Move the cursor 
with the cursor keys or mouse. It will move 
within a grid eight blocks wide by seven 
blocks high. 

To change an element type, move the box cursor 
to the desired location and press the first 
letter of the element type (i.e., p, c, a, v, 
f, or t) or click on the element icon with the 
left mouse button. The old icon will replaced 
with the new icon. 

You can now move the box cursor to change 
another element type or press the escape key 
to return to the F4Chg submenu. 



FINDING A SPECIFIC ELEMENT : 

Select the F5Find command button by either pressing the 
f5 function key, clicking on the F5Find command with the 
left mouse button, or moving the highlight to F5Find 
with the cursor keys. 

The program will prompt you to enter the name of the 
element you wish to find followed by the return key. 
You must enter the name exactly as it is listed in the 
database. The program will find this element on the 
genus graph and move the box cursor around it. 

You can now enter another name or press the escape key 
to select another command button. 
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MOVING ELEMENTS OR SUBTREES: 



This function is not implemented in the version of 
INTUITION. Selecting the F6Move command button has 
not effect. 



LOADING A MODEL FROM DISK : 

Select the F7Load command button by either pressing the 
f7 function key, clicking on the F7Load command with the 
left mouse button, or moving the highlight to F7Load 
with the cursor keys. 

The program will prompt you to enter the filename. It 
will then load the file. The selected file must be on 
the disk in drive A. WARNING: SELECTING THIS OPTION 
DESTROYS ANY GRAPHS IN THE CURRENT WORKSPACE. 



SAVING A MODEL TO DISK : 

Select the F8Save command button by either pressing the 
f8 function key, clicking on the F8Save command with the 
left mouse button, or moving the highlight ' to F8Save 
with the cursor keys. 

The program will prompt you to enter the filename. It 
will then save the file to the disk in drive A. Two 
files are created. One contains the screen image 
information and will have the postfix . img added to the 
name you specify. The other contains the text data 
needed to describe the model and will have the postfix 
. dat added to filename. After saving a file, you can 
continue to add to the model/ however, any additions 
will be lost unless you resave the model. 



CONNECTING TO A DATABASE MANAGEMENT SYSTEM : 

Select the F9dbms command button by either pressing the 
f9 function key, clicking on the F9dbms command with the 
left mouse button, or moving the highlight to F9dbms 
with the cursor keys. 

The program will open a connection to the ORACLE RDBMS. 
Pressing the key a second time will disconnect you from 
the database. ORACLE must be properly installed on the 
system you are using or the command will fail. 
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QUITTING THE PROGRAM: 



Select the FlOQuit command button by either pressing the 
flO function key, clicking on the FlOQuit command with 
the left mouse button, or moving the highlight to 
FlOQuit with the cursor keys. 

The program will ask you to confirm that you want to 
exit the program. Press y to confirm. Press n to 
continue in the program. WARNING: EXITING THE PROGRAM 

DESTROYS THE CURRENT MODEL UNLESS IT WAS PREVIOUSLY 
SAVED TO DISK. 
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